Реализации алгоритмов/Сортировка/Выбором: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 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[
a[min] := t;
end;
</source></big>
|