Question

написать программу, которая сортирует массив методом пузырьков. На вход программе подается размер массива, программа создает массив заданной длины и заполняет его случайными числами от 1 до 100, а затем сортирует, например, по возрастанию. На вывод подается отсортированный массив.

Answer 1

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]>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