Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
haanh nguyen

Viết công thức dãy số A gồm N phần tử.Với N đc nhập từ bàn phím
a, Nhập dữ liệu và in dãy số A ra màn hình mỗi phần tử cách nhau 1 kí tự trống
b,Tính và in kết quả ra màn hình tổng các phần tử chia hết cho 3 và ko chia hết cho 5

Nguyễn Lê Phước Thịnh
27 tháng 6 2020 lúc 8:51

uses crt;

var a:array[1..100]of integer;

n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so A ban vua nhap la: ');

for i:=1 to n do

write(a[i],' ');

writeln;

t:=0;

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5<>0) then t:=t+a[i];

writeln('Tong cac phan tu chia het cho 3 va khong chia het cho 5 la: ',t);

readln;

end.


Các câu hỏi tương tự
Nguyễn Mỹ
Xem chi tiết
Hùng Cường Nguyễn
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
vy tường
Xem chi tiết
Bình
Xem chi tiết
thanhlee 011
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Thư ĐT
Xem chi tiết
Lê Thị Phương Dung
Xem chi tiết