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.