Question

Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне [0,20] и сортирует его в порядке убывания. Пример:

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

Сортировка: 18 16 16 14 13 13 9 5 3 2

Паскаль

Answer 1

Хорошо, вот программа на языке Паскаль, которая выполняет указанную задачу:

```pascal
program SortingArray;

var
arr: array[1..10] of integer;
i, j, temp: integer;

begin
// Заполняем массив случайными числами в диапазоне [0,20]
randomize;
for i := 1 to 10 do
begin
arr[i] := random(21);
write(arr[i], ' ');
end;
writeln;

// Сортировка массива в порядке убывания
for i := 1 to 9 do
begin
for j := i+1 to 10 do
begin
if arr[i] < arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;

// Вывод отсортированного массива
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
writeln;

end.
```

В данной программе используется массив `arr` для хранения элементов. Используется двойной цикл сортировки: внешний цикл для перебора всех элементов, и внутренний цикл для сравнения текущего элемента с остальными элементами и их перестановки, если нужно. При сравнении и перестановке элементов используется переменная `temp`, которая временно хранит значение для обмена элементов.

После заполнения массива случайными числами, они выводятся на экран. Затем выполняется сортировка массива в порядке убывания путем сравнения каждого элемента с остальными элементами и перестановкой, если нужно. После сортировки, отсортированный массив выводится на экран.