вторник, 22 ноября 2011 г.

program selection;
var mas: array [1..20] of integer;
i, n, j, min, n_min:integer;
begin
writeln('n='); read(n);
randomize;
for i:=1 to n do mas [i]:=random (10)+15;
for i:=1 to n do write(' mas[',I,']=', mas[i]);
writeln;
for i:=1 to N-1 do
begin
min:= mas[i];
n_min:=i;
for j:=i+1 to N do
if mas [j]<min then
begin
min:= mas[j];
N_min:=j;
end;
 mas[N_min]:=mas[i];
 mas[i]:=min;
 end;
 for i:=1 to n do write(' mas[',I,']=', mas[i])
 writeln;
 end.