Question

Создайте массив из 5 элементов с помощью генератора случайных чисел с элементами от 0 до 100 и выведите его на экран.
Отсортируйте массив по убыванию.

Answer 1

Программа:

Pascal:

const N = 5;

var arr: array[1..N] of integer;

 i, j, tmp: integer;

begin

 for i := 1 to N do arr[i] := random(100);

 writeln(arr);

 for i := 1 to N - 1 do

   for j := i + 1 to N do

     if arr[i] < arr[j] then begin

       tmp := arr[i];

       arr[i] := arr[j];

       arr[j] := tmp;

     end;

 writeln(arr);

end.