Дан массив из n элементов определить сколько в нем двузначных элементов кратных 5.

На Паскале:
k:=0;
for i:=1 to n do
 if (array[i] < 100) and (array[i]>9) and (array[i] mod 5 = 0) then k:= k+1;

Program gt;
var n,a,p,k,q,i:integer;
begin
read(n);
q:=0;
for i:=1 to n do
begin
read(A);
p:=a;
if(a mod 5=0)then begin
k:=0;
while a>0 do
begin
a:=a div 10;
k:=k+1;
end;
if(k=2)then q:=q+1;
end;
end;
writeln(q);
end.