ShirokovP

Verified answer

Var   a: array [1..100] of integer;   
k,n,i:integer;
begin
k:=0;   
write ('Введите размер: ');    
readln(n);    
for i:=1 to n do      
     readln (a[i]);    
for i:=1 to n do    
begin     
     If a[i] mod 10=8 then      
          k:=k+1   
end;   
write (k);
end.