Страница 101-107 §2.4 номер 6, ГДЗ по информатике за 9 класс к учебнику Босовой

program z_6;

const

  n = 10;

type

  mas = array[1..n] of integer;

var

  i, j, imax, x: integer;

  a: mas;

procedure sort(b: mas; c: integer; var jmax: integer);

var

  j: integer;

begin

  jmax := c; //индекс текущего элемента, передается из основной программы.

  for j := c + 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

    write(a[i], ' ');

  for i := 1 to 9 do

  begin

    sort(a, i, imax);//вызов процедуры, передается индекс текущего элемента в массиве a, массив а передается в массив b, возвращается индекс максимального элемента.

    x := a[i];

    a[i] := a[imax]; //обмен текущего с максимальным. Сортировка идет слева на право по убыванию.

    a[imax] := x

  end;

  writeln;

  writeln('Отсортированный массив');

  for i := 1 to 10 do

    write(a[i], ' ')

end.