В паскале попробывал все получилось)
vara,b,c,e:integer;beginread(a);c:=0;for e:=1 to adobeginread(b);if b mod 10=3thenc:=c+1;end;write(c);end.
В паскале попробывал все получилось)
var
a,b,c,e:integer;
begin
read(a);
c:=0;
for e:=1 to a
do
begin
read(b);
if b mod 10=3
then
c:=c+1;
end;
write(c);
end.