§ 2.4. Запись вспомогательных алгоритмов на языке Паскаль ГДЗ по Информатике 9 класс. Босова.
Видоизмените программу сортировки массива выбором так, чтобы в ней использовалась процедура выбора наибольшего элемента массива.
Ответ
Возможный вариант решения задачи.
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.