program Array45;

var
  a:array[1..10] of integer;
  N,i,i2,k,k2:Integer;

begin
  Write('N: ');
  Readln(N);

  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

   k:=1;
   k2:=2;

  for i:=1 to N-1 do
    for i2:=i+1 to N do
      if abs(a[i]-a[i2])<abs(a[k]-a[k2]) then
        begin
          k:=i;
          k2:=i2;
        end;

  Writeln(k,' ',k2);
end.