Program Zif_4_17(input,output);
label 1,2;
Var n,k:integer;
    x:real;
Begin
     read(n);k:=0;
     1:read(x);
     if x<0 then k:=k+1;
     n:=n-1;
     if n=0 then goto 2;
     goto 1;
     2:writeln(k);
End.