Регистрация
Сани56
15.03.2022 06:33
Информатика
Есть ответ 👍

Напишите решение от начала и до конца

179
389
Посмотреть ответы 1

Ответы на вопрос:

geamget
geamget
4,8(71 оценок)
Const n = 10; type arr=array[1..n] of byte; procedure sort(var a: arr); var i, j, max, imax: integer; begin j : = n; while j > 1 do begin     max : = a[1];     imax : = 1;     for i : = 2 to j do         if a[i] > max then begin             max : = a[i];             imax : = i         end;     a[imax] : = a[j];     a[j] : = max;     j : = j - 1   end; end; var a: arr; i: byte;   begin randomize; writeln('исходный массив: '); for i : = 1 to n do    begin   a[i] : = random(256);   write(a[i]: 4)   end; writeln; sort(a); writeln('отсортированный массив: '); for i : = 1 to n do write(a[i]: 4); writeln; end. пример: исходный массив:   119 239 156 143   34 184   93   19 218 120 отсортированный массив:   19   34   93 119 120 143 156 184 218 239

Популярно: Информатика