var arr: array[1..10] of integer; i, j, temp: integer;
begin // Заполнение массива случайными числами от -10 до 5 randomize; for i := 1 to 10 do arr[i] := random(16) - 10;
// Вывод исходного массива writeln('Исходный массив:'); for i := 1 to 10 do write(arr[i], ' '); writeln;
// Сортировка методом прямого обмена по возрастанию for i := 1 to 9 do for j := 1 to 10-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 10 do write(arr[i], ' '); writeln; end.
program BubbleSort;
var
arr: array[1..10] of integer;
i, j, temp: integer;
begin
// Заполнение массива случайными числами от -10 до 5
randomize;
for i := 1 to 10 do
arr[i] := random(16) - 10;
// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to 10 do
write(arr[i], ' ');
writeln;
// Сортировка методом прямого обмена по возрастанию
for i := 1 to 9 do
for j := 1 to 10-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 10 do
write(arr[i], ' ');
writeln;
end.