Задача 10.4. Впорядкувати масив А з п'яти цiлих чисел по зростанню його елементiв. Для розв'язування цiєї задачi зручно використати метод "бульбашок".

Суть цього методу полягає в тому, що спочатку беруть перший елемент масиву i порiвнюють його з всiма наступними елементами. Якщо наступний бiльший вiд першого, то їх мiняють мiсцями. Пiсля цього беруть другий елемент масиву i знову його порiвнюють з всiма наступними елементами. Знову, якщо наступний бiльший вiд другого, то їх мiняють мiсцями. Цю ж операцiю проводять з рештою елементiв масиву. Таким чином найменший елемент "як бульбашка випливе" на самий верх в кiнець масиву, а всi елементи масиву будуть впорядкованi по зростанню.

Program Sort;
Const n=5;
     a:array[1..n]of integer=(3,4,2,6,7);
Var i,j:integer;
    c:integer;
Begin
 For j:=1 to n-1 do
 For i:=1 to n-j do
 If a[i]>a[i+1] Then
 Begin
          c:=a[i+1];
          a[i+1]:=a[i];
          a[i]:=c;
 End;
 For i:=1 to n do
 Write(a[i]:3);
 Writeln
End.

Результати роботи програми:
2 3 4 6 7