Хорошо, вот программа на языке Паскаль, которая выполняет указанную задачу:
```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`, которая временно хранит значение для обмена элементов.
После заполнения массива случайными числами, они выводятся на экран. Затем выполняется сортировка массива в порядке убывания путем сравнения каждого элемента с остальными элементами и перестановкой, если нужно. После сортировки, отсортированный массив выводится на экран.
```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`, которая временно хранит значение для обмена элементов.
После заполнения массива случайными числами, они выводятся на экран. Затем выполняется сортировка массива в порядке убывания путем сравнения каждого элемента с остальными элементами и перестановкой, если нужно. После сортировки, отсортированный массив выводится на экран.