Cho N và dãy a1,…,aN, hãy đếm có bao nhiêu số chia hết cho 5
viết thuật toán dưới dạng liệt kê
GIÚP MÌNH VỚI Ạ!!!!!!!!
Cho N và dãy a1,…,aN, hãy đếm có bao nhiêu số chia hết cho 5
viết thuật toán dưới dạng liệt kê
GIÚP MÌNH VỚI Ạ!!!!!!!!
var n, i, j:integer;
a: array [1..10000] of integer;
begin
writeln(‘Hay nhap so phan tu cua mang’);
readln(n);
writeln(‘Hay nhap cac phan tu cua mang’);
for i:=1 to n do
readln(a[i]);
j:=0;
for i:=1 to n do
if a[i] mod 5=0 then
j:=j+1;
writeln(‘So phan tu chia het cho 5 la’);
writeln(j);
readln
end.
1000% đúng
B1: Nhập số nguyên dương N và dãy N số nguyên a1,…,aN
B2: i ← 1, k←0
B3: Nếu i > N thì đưa ra k rồi kết thúc
B4: Nếu Ai chia hết cho 5 thì k ← k+1
B5 i ← i+1 rồi quay lại B3