va arr: array[1..10] of integer i, j, temp: integer;
begi // Заполнение массива случайными числами от -10 до randomize for i := 1 to 10 d arr[i] := random(16) - 10;
// Вывод исходного массив writeln('Исходный массив:') for i := 1 to 10 d write(arr[i], ' ') writeln;
// Сортировка методом прямого обмена по возрастани for i := 1 to 9 d for j := 1 to 10-i d if arr[j] > arr[j+1] the begi temp := arr[j] arr[j] := arr[j+1] arr[j+1] := temp end;
// Вывод отсортированного массив writeln('Отсортированный массив:') for i := 1 to 10 d write(arr[i], ' ') writeln end.
program BubbleSort;
va
arr: array[1..10] of integer
i, j, temp: integer;
begi
// Заполнение массива случайными числами от -10 до
randomize
for i := 1 to 10 d
arr[i] := random(16) - 10;
// Вывод исходного массив
writeln('Исходный массив:')
for i := 1 to 10 d
write(arr[i], ' ')
writeln;
// Сортировка методом прямого обмена по возрастани
for i := 1 to 9 d
for j := 1 to 10-i d
if arr[j] > arr[j+1] the
begi
temp := arr[j]
arr[j] := arr[j+1]
arr[j+1] := temp
end;
// Вывод отсортированного массив
writeln('Отсортированный массив:')
for i := 1 to 10 d
write(arr[i], ' ')
writeln
end.