var
  i,n,s:integer;
  a:array[1..1000] of integer;
begin
  readln(n);
  for i:=1 to n do
  read(a[i]);
  for i:=1 to n do
    if a[i]=90 then 
      inc(s);
  write(s);
end.
/**************************************************************
	Problem: 2095
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/