Предмет: Информатика, автор: vedmochkayana123

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

Ответы

Автор ответа: Аноним
0
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]<x then
      begin
        k := j;
        x := item[j]
      end;
      item[k] := item[i];
      item[i] := x
    end
end;


Автор ответа: vedmochkayana123
0
благодарю))
Похожие вопросы
Предмет: Математика, автор: mmmmmmm50
Предмет: Алгебра, автор: arianalabuhova