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

Question

Информатика

Валентион

4 ноября, 20:31

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

+5

Ответы (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;