DOICHO PASCAL

var     a:array[1..1000000] of longint;
    n,k,max,min:longint;

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

procedure tim_max;
var i:longint;
begin
    max:=1;
    for i:=2 to n do
           if a[i]>a[max] then max:=i;
end;

procedure tim_min;
var i:longint;
begin
    min:=1;
    for i:=2 to n do
           if a[i] ≤ a[min] then min:=i;
end;

procedure doi_cho;
var t:longint;
Begin
    t:=a[max];
    a[max]:=a[min];
    a[min]:=t;
end;

procedure xuat_mang;
var i:longint;
begin
    for i:=1 to n do write(a[i],' ');
end;

begin
    assign(input, 'doicho.inp');reset(input);
    assign(output, 'doicho.out');rewrite(output);
    nhap;
    tim_max;
    tim_min;
    doi_cho;
    xuat_mang;
End.