Впаскале. отсортировать исходный одномерный массив по возрастанию методом поиска максимума и обмена

250

453

Посмотреть ответы 2

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

Верочка1317

Информатика

4,4(48 оценок)

Var a: array [1..10] of byte; i, k, n, t, x, max: byte; //процедура вывода массива procedure writea(); var i : byte; begin for i : = 1 to 10 do begin write(a[i], chr(32)); end; writeln(); end; //основная процедура begin randomize; for i : = 1 to 10 do begin a[i] : = random(100); end; writea(); writeln(''); n : = 10; while n > 1 do begin for i : = n downto 1 do begin if a[i] > max then begin max : = a[i]; x : = i end; end; t : = a[n]; a[n] : = max; a[x] : = t; dec(n); max : = 0; writea(); end; writeln(''); writea(); end.- pascal abc.net, массив из 10 случайных чисел до 100 типа byte- результат работы программы следующий: 43 77 72 39 60 99 44 65 72 58 43 77 72 39 60 58 44 65 72 9943 72 72 39 60 58 44 65 77 9943 72 65 39 60 58 44 72 77 9943 44 65 39 60 58 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 39 58 60 65 72 72 77 9943 39 44 58 60 65 72 72 77 9939 43 44 58 60 65 72 72 77 99 39 43 44 58 60 65 72 72 77 99