Реализации алгоритмов/Сортировка/Выбором: различия между версиями

Содержимое удалено Содержимое добавлено
Строка 68:
for i := 1 to n - 1 do
begin
min := i;
for j := i + 1 to n do
if a[min] > a[j] then
min := j;
if min<>i then begin
t := a[i];
a[i] t := a[mini];
a[mini] := ta[min];
a[min] := t;
t := a[i]end;
end;
</source></big>