Cho 1 dãy gồm N số nguyên a1, a2,.... an. Tính và thông báo tích của các số là bội của 5.
1 câu trả lời
program tinhtchboi5;
uses crt;
var i,n : integer;
s:real;
a:array[1..100] of integer;
begin
clrscr;
s:=0;
writeln('nhap so phan tu cua day so',n); readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
if (a[i] mod 5) then
s:=S*a[i];
else then
write('day khong phai boi so cua 5');
writeln('tich cua cac so la boi so cua 5 la',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
