1. Написать программу сортировки целочисленного массива из 10 элементов методом пузырька...

Question

1. Написать программу сортировки целочисленного массива из 10 элементов методом пузырька (заполнение массива путём ввода элементов с клавиатуры)

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.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:=ReadArrInteger('Введите данные:',ReadInteger('n='));
  BubbleSort(a);
  a.Println
end.

Пример
n= 6
Введите данные: 4 7 2 8 0 2
0 2 2 4 7 8