var a,b,i,s:integer;
begin
read (a);
s:=0;
for i:=1 to a do
read (b);
if (b mod 5=0) and (b mod 10=0) then
s:=s+1;
end;
write(s);
end.
Объяснение:
PS: python лучше
var a,b,i,s:integer;
begin
read (a);
s:=0;
for i:=1 to a do
begin
read (b);
if (b mod 5=0) and (b mod 10=0) then
s:=s+1;
end;
write(s);
end.
Объяснение:
PS: python лучше