Question

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

Answer 1

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.