program asd;
uses crt;
const n=20;
var q,x:array[1..n] of integer;
j,l,k,s,i,v,f:integer;
u:real;
BEGIN clrscr;
randomize;
for i:=1 to n do BEGIN x[i]:=random(30)+5;
write(' ',x[i]);
end;
writeln;
v:=x[1];
l:=1;
k:=0;
for i:=1 to n do if x[i] l:=i;
end;
writeln('min ',x[v]);
writeln('¹ ',v);
k:=x[2] ;
x[2]:=x[l];
x[l]:=k;
for i:=1 to n do write(' ',x[i]);
writeln;
end.