Объяснение:
var
n, i, k, m: integer;
begin
k := 0;
readln(n);
for i := 1 to n do
readln(m);
if (m mod 5 = 0) and (m mod 10 = 0) then
inc(k)
end;
writeln(k);
end.
Объяснение:
var
n, i, k, m: integer;
begin
k := 0;
readln(n);
for i := 1 to n do
begin
readln(m);
if (m mod 5 = 0) and (m mod 10 = 0) then
inc(k)
end;
writeln(k);
end.