program mn;
uses crt;
var a:array[1..100]of integer;
i,n,no,q,min,j:integer;
BEGIN
ClrScr;
Write('N:');
readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(30);
Write(a[i],' ');
end;
writeln;
Write('q:');
readln(q);

for i:=1 to n do
begin
min:=a[i];no:=i;
for j:=i to n do
if a[j] then begin
min:=a[j];
no:=j;
end;
a[no]:=a[i];
a[i]:=min;
end;
for i:=1 to n do
Write(a[i],' ');
readln;
END.