Program Task_3;
Var
a : array [1..10000] of integer;
i,n, sum: integer;
Begin
sum:=0;
read(n);
for i := 1 to n do
   begin
       read(a[i]);
       if (a[i] > 0) then
          sum:= sum + 1;
   end;

   writeln(sum);

End.