// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 const n=100; // заменить на 10000 var a:array[1..n] of byte; i:byte; j:integer; begin // инициализация, для for j:=1 to n do a[j]:=Random(256); // собственно программа for i:=0 to 255 do for j:=1 to n do if a[j]=i then Write(i,' '); end.
var i,b,n,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(b); if((b>0)and(b mod 5 = 0)) then k:=k+1; end;
writeln(k);
end.