написать программу, которая сортирует массив методом пузырьков. На вход программке подается

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программка не работает, обновите версию!

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]gt;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= 15

57 80 80 45 91 12 98 95 55 77 54 62 46 32 60

12 32 45 46 54 55 57 60 62 77 80 80 91 95 98