gistfile1.pas

var
a:array[1..100000] of longint;
n,min,ind,i: longint;
begin
  read(n);
  
  for i:=1 to n do
  begin
    read(a[i]);
  end;
  
  min:=a[1];
  ind:=1;
  
  for i:=1 to n do
  begin
    if (min)>(a[i]) then
    begin
      min:=a[i];
      ind:=i;
    end;
  end;
  
  write(ind);
end.