Предмет: Информатика,
автор: 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;
{Сортировка выбором}
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;
Автор ответа:
0
благодарю))
Похожие вопросы
Предмет: Математика,
автор: mmmmmmm50
Предмет: Английский язык,
автор: abzalmarat52
Предмет: Алгебра,
автор: arianalabuhova
Предмет: Математика,
автор: komarov20001
Предмет: Информатика,
автор: nata15071978