Program
var a: array[1..100] of integer;
i, j, n,min, k,r: integer;
Begin
Readln(N);
randomize;
for i := 1 to N do begin
a[i] := random(100);
write(a[i], ' ');
end;
Writeln;
for i:=1 to n-1 do begin
min:=a[i];
k:=i;
for j:=i+1 to n do
if a[j]<min then begin
min:=a[j];
k:=j;
end;
R:=a[i];a[i]:=a[k];a[k]:=R;
end;
Writeln ('A: ');
for i := 1 to N do
write(a[i], ' ');
end.