/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/09_Arrays/SortByChoice.pas
22 строки
503 B
Mikhalkovich Stanislav
Примеры правлю
05 ноя 2025, 12:17
05 ноя 2025, 12:17
444637a
Код
Авторство
О чём код?
// Сортировка выбором procedure SortByChoice(a: array of real); begin for var i:=0 to a.Length-2 do begin var (min,ind) := (a[i],i); for var j:=i+1 to a.Length-1 do if a[j]<min then (min,ind) := (a[j],j); a[ind] := a[i]; a[i] := min; end; end; begin var a := ArrRandomReal(20); Println('Содержимое массива: '); a.Println; SortByChoice(a); Println('После сортировки выбором: '); a.Println; end.