Заполнить массив из 10 элементов случайными числами в интервале -10 10
и отсортировать их по убыванию. На языке Pascal

Предыдущий
вопрос Следующий
вопрос

program SortArray;

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

begin
Randomize;

// Заполнение массива случайными числами от -10 до 10
for i := 1 to 10 do
begin
arr[i] := Random(21) - 10;
Write(arr[i], ' ');
end;

// Сортировка массива по убыванию
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;

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

end.