var
  a : array [1..1000] of longint;
  n,max,i : longint;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  max:=a[1];
  for i:=1 to n do
    if a[i]>max then
      writeln(i);
    if a[i]=max then
      writeln(i);
end.