min2max

uses crt;
var
  a:array[1..100] of longint;
  i,n:longint;

procedure rArray();
begin
  readln(n);
  for i:=1 to n do read(a[i]); readln();
end;

procedure find(x:longint);
begin
  for i:=1 to n do if a[i]=x then write(i,' ');
  writeln();
end;

function min():longint;
var tmp:longint;
begin
  tmp:=a[1];
  for i:=2 to n do if a[i]<tmp then tmp:=a[i];
  writeln(tmp);
  min:=tmp;
end;

function max():longint;
var m1,m2:longint;
begin
  m1:=a[1];
  m2:=a[1];
  for i:=2 to n do
    if a[i]>m2 then
      if a[i]>m1 then
        begin
          m2:=m1;
          m1:=a[i];
        end
      else if a[i]<m1 then m2:=a[i];
  writeln(m2);
  max:=m2;
end;

begin
  clrscr();

  rArray();
  find(min());
  find(max());

  readln();
end.