program ololo;
var a:array[1..30] of integer;
i,m,n,x:integer;
begin
m:=maxint; //Это чтобы работало :D//
readln(x); //Считываем число х//
for i:=1 to 30 do begin
read(a[i]); //Задаём массив//
if abs(a[i]-x)<m then begin //Проверяем условие//
m:=abs(a[i]-x);
n:=i;
end;
end;
writeln(n); //Выводим ответ(номер элемента)//
end.

program ololo;
var a:array[1..30] of integer;
i,m,n,x:integer;
begin
for i:=1 to 30 do begin
read(a[i]); //Задаём массив//
if a[i]<0 then begin
if n:=i-1 then begin
m:=m+1;
n:=i;
x:=m;
end
else begin
m:=1;
n:=i;
end;
end;
end;
if x>0 then m:=x;
writeln(m); //Выводим ответ//
end.