uses crt;
var i,n,dem:integer;
     a:array[1..50] of integer;
begin
         clrscr;
         readln(n); dem:=0;
         for i:=1 to n do
         begin
                  readln(a[i]);
                  write(a[i]:3);
         end;
         for i:=1 to n do
         if a[i] > 0 then dem:=dem+1;
         write(dem);
         readln
end.