var
i,k:integer;
s,m:real;
a :array[1..30] of integer;
begin
      for i:=1 to 30 do
      begin
        readln(a[i]);
      end;
      for i:=1 to 30 do
      begin
          k:=k+a[i];
      end;
      m:=k/30;
      s := 1;
      for i:=1 to 30 do
      begin
          if abs(a[i]-m) < abs(a[s]-m) then
          begin
              s:=i;
          end;
      end;
      writeln(s);
end.