Viết chương trình nhập vào từ bàn phím,số nguyên dương N(N<=100) và dãy số nguyên A1,A2...An.-Tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5.
Viết chương trình nhập vào từ bàn phím,số nguyên dương N(N<=100) và dãy số nguyên A1,A2...An.-Tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc
By Kylie
uses crt;
var a:array[1..100] of integer;
n,i,tong:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘);
readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then tong:=tong+a[i];
writeln(‘Tong gia tri cac so chia het cho 3 hoac 5 la: ‘,tong);
readln
end.