Var a:array[1..100]of integer;
k,i:integer;
begin
readln (n);
for i:=1 to n do
read (a[i]);
if a[i]<0 then k:=k+1;
end;
write (k);
end.
Var a:array[1..100]of integer;
k,i:integer;
begin
readln (n);
for i:=1 to n do
begin
read (a[i]);
if a[i]<0 then k:=k+1;
end;
write (k);
end.