Uses crt;
var k,q,i:integer;
begin
readln(q);
k:=0;
repeat
read(i);
if (i<30000) and (i mod 10=8) then inc(k);
q:=q-1;
until q=0;
writeln;
writeln(k);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.