Написать программу сортировки массива по возрастанию из 10 случайных элементов. ПАСКАЛЬ

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

program SortArray;

const
N = 10;

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

begin
Randomize;

// Заполнение массива случайными числами
for i := 1 to N do
arr[i] := Random(100);

// Вывод исходного массива
Writeln('Исходный массив:');
for i := 1 to N do
Write(arr[i], ' ');
Writeln;

// Сортировка массива пузырьковым методом
for i := 1 to N-1 do
for j := 1 to N-i do
if arr[j] > arr[j+1] then
begin
temp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := temp;
end;

// Вывод отсортированного массива
Writeln('Отсортированный массив:');
for i := 1 to N do
Write(arr[i], ' ');
Writeln;
end.