var a,i,k,sum:integer;
begin
read(a); //кол-во числе в последовательности
for i:=1 to a do begin
read(k);
if(k>=0)then sum:=sum+1; //проверка на положительное число
end;
write(sum);
end
