Видоизмените программу сортировки массива выбором так, чтобы в ней использовалась процедура выбора наибольшего элемента массива

Видоизмените программу сортировки массива выбором так, чтобы в ней использовалась процедура выбора наибольшего элемента массива.

Ответ

Возможный вариант решения задачи.

program sortirovka_massiva;
const n=10;
type myarray = array [1..n] of integer;
var i, j, imax,
х: integer;
а, b: myarray;
procedure max (b: myarray; k: integer; var jmax: integer);
var j: integer;
begin
jmax:=k;
for j:=k+1 to 10 do
if b[j]>b[jmax] then jmax:=j
end;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(100);
writeln (‘Исходный массив’);
for i:= 1 to 10 do
writeln (‘а[ ‘, i, ‘] = ‘, а [i]);
for i:=1 to 9 do
begin
max (а, i, imax);
х:=а[i];
а[i]:=а[imax];
а[imax]:=х
end;
writeln (‘Отсортированный по убыванию массив’);
for i:=1 to 10 do
writeln (‘а[‘, i, ‘] = ‘, a[i]);
end.

Опубликовано: 14.01.2019 Обновлено: 14.01.2019
Поделись с друзьями

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

девять + восемнадцать =