/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Algorithms/SortArrays/SelectionSort.pas
22 строки
535 B
Mikhalkovich Stanislav
Правки некоторых примеров
01 янв 2019, 14:15
01 янв 2019, 14:15
43adc0a
Код
Авторство
О чём код?
// Сортировка выбором procedure SelectionSort(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 := SeqRandomReal(20).Select(r->r.Round(2)).ToArray; Println('Содержимое массива: '); a.Println; SelectionSort(a); Println('После сортировки выбором: '); a.Println; end.