Lite Text

program ics;
type vector=array[1..100] of integer;
var v:vector;
n,p,x,k:integer;
procedure pozmax(v:vector;p:integer;var x:integer);
var max,i:integer;
begin
max:=v[1];
x:=1;
for i:=2 to p do
if v[i]>max then
begin
max:=v[i];
x:=i;
end;
end;

procedure schimb(var v1,v2:integer);
var aux:integer;
begin
aux:=v1;
v1:=v2;
v2:=aux;
end;


begin
readln(n);
for k:=1 to n do readln(v[k]);

for p:=n downto 2 do
begin
pozmax(v,p,x);
schimb(v[p],v[x]);
end;
for k:=1 to n do writeln(v[k]);
end.