program bai_giai;
var f,g:text;
A:array[1..10000] of integer;
n,i,max,d:integer;
begin
Assign(f,'SOAM.INP'); reset(f);
Assign(g,'SOAM.OUT'); rewrite(g);
readln(f,n);
for i:=1 to n do read(f,A[i]);
max:=0; d:=-1;
for i:=1 to n do
if (A[i]<0) and (max=0) then
begin
max:=A[i]; d:=1;
end
else if (A[i]<0) and (A[i]>max) then
begin
max:=A[i]; d:=1;
end
else if (A[i]<0) and (A[i]=max) then d:=d+1;
write(g,d);
close(f); close(g);
end.