var n,i,a,c:longint;
begin
read(n);
c:=0;
for i:=1 to n do
begin
read(a);
if a>0 then inc(c);
end;
write('In this array we have ',c,' positive numbers.');
end.
begin
read(n);
c:=0;
for i:=1 to n do
begin
read(a);
if a>0 then inc(c);
end;
write('In this array we have ',c,' positive numbers.');
end.