var
  a : array [1..50] of longint;
  i,sum,n,k : longint;
begin
  readln(n);
  for i:=1 to n do
  readln(a[i]);
  sum:=0;
  for i:=1 to n do
    if a[i]=8 then
      sum:=sum+1;
  writeln(sum);
end.