Отсортировать одномерный массив из 10 элементов методом сортировкс выбором

Question

Информатика

Корнелия

25 февраля, 17:55

Отсортировать одномерный массив из 10 элементов методом сортировкс выбором

+2

Ответы (1)

Знаете ответ на вопрос?

Веруня · Answer 1

Procedure SortBySelect (var a: Vector; kol:integer) ;

{Сортировка выбором}

var

i, j, k: integer;

x: integer; {заменить на тип элементов массива}

begin

for i : = 1 to kol-1 do

begin

k : = i;

x : = item[i];

for j : = i+1 to count do

if item[j]
begin

k : = j;

x : = item[j]

end;

item[k] : = item[i];

item[i] : = x

end

end;