Страница 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 := jend;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.