var
  a : array [1..100] of longint;
  n,min,i,nom : longint;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
    min:=a[1];
    nom:=1;
  for i:=1 to n do
    if a[i]<min then
      min:=a[i];
      nom:=i;
  writeln(min,' ',nom);
end.