program choiсesort;
var mas: array[1..5] of integer; j, i, min, obmen, gen: integer;
begin
randomize;
for gen:=1 to 5 do mas[gen]:=random(1, 10);
writeln(mas);
for i:=1 to 4 do begin
min := i; {<----- почему мы присваиваем минимуму значение i ?}
for j:=i to 5 do if mas[j] < mas[min] then min:=j;
if min <> i then begin
obmen := mas[i];
mas[i]:=mas[min];
mas[min]:=obmen;
writeln(mas);
end;
end;
end.
Простой
