var
  n, c, i: integer;
  ar: array[1..10000]of integer;

begin
  c := 0;
  read(n);
  for i := 1 to n do read(ar[i]);
  for i := 1 to n do if (ar[i] > 5) then c := c + 1;
  write(c);
  
end.