Question

Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне [0,20] и сортирует его в порядке возрастания. На каждом шаге цикла выполняется поиск максимального (а не минимального!) элемента.

Пример:

Массив: 5 16 2 13 3 14 18 13 16 9

После сортировки: 2 3 5 9 13 13 14 16 16 18

Answer 1

Ответ:

Объяснение:

const

 n = 10;

 x = 1;

 y = 20;

var

 arr: array[1..n] of integer;

 tmp: integer;

begin

 randomize;

 write('Массив: ');

 for var m := 1 to n do

 begin    

    arr[m] := random(x, y);

    write(arr[m], ' ');

 end;

 for var i := 1 to n do

 begin

    for var j := 1 to n - 1 do

    begin

       if (arr[j] > arr[j + 1]) then

       begin

          tmp := arr[j];

          arr[j] := arr[j + 1];

          arr[j + 1] := tmp;

       end;

    end;

 end;      

 writeln();

 write('После сортировки: ');

 for var i := 1 to n do

    write(arr[i], ' ');

end.