viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím 16/07/2021 Bởi Ivy viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím
var a:aray[1..1000]of integer; i,n,d:integer; begin d:=0; writeln(‘nhap n’);readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 5=0 then d:=d+1; write(d); readln; end. Bình luận
var a:aray[1..1000]of integer;
i,n,d:integer;
begin
d:=0;
writeln(‘nhap n’);readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 5=0 then d:=d+1;
write(d);
readln;
end.