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. YÊU CẦU a-Tính và đưa ra màn hình tổng giá trị của 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. YÊU CẦU a-Tính và đưa ra màn hình tổng giá trị của các số chia hết cho 3 hoặc 5.
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.