Написать программу, которая сортирует массив методом пузырьков. на вход программе подается размер массива, программа создает массив заданной длины и заполняет его случайными числами от 1 до 100, а затем сортирует, например, по возрастанию. на вывод подается отсортированный массив.
procedure BubbleSort(a:array of integer);
// простая пузырьковая сортировка
begin
var n:=a.Length;
for var i:=n-2 downto 0 do
for var j:=0 to i do
if a[j]>a[j+1] then Swap(a[j],a[j+1])
end;
begin
var a := ArrRandom(ReadInteger('n='), 1, 100);
a.Println;
BubbleSort(a);
a.Println
end.
Примерn= 1557 80 80 45 91 12 98 95 55 77 54 62 46 32 6012 32 45 46 54 55 57 60 62 77 80 80 91 95 98