Var
 Массив:array of smallint;
 N:smallint;
Begin
Read(N);
Массив:=new smallint[N+2];
Массив[0]:=-1001;
For var i:= 1 to N do
 Read(Массив[i]);
For var i:= 1 to N do
 if Массив[i]>Массив[0] then
 Begin
 Массив[0]:=Массив[i];
 Массив[N+1]:=i
 End;
Swap(Массив[1],Массив[Массив[N+1]]);
For var i:= 1 to N do
Write(Массив[i],' ');
End.