sample017.PAS

{* Сортировка массива "пузырьком" *}

Unit SAMPLE017;
Interface
Implementation
Begin
 writeln('Сортировка массива "пузырьком"');
End.

Program pas;

Uses sample017.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 10; { количество элементов в массиве }
Var {* Необходимые переменные *}
  a : Array[1..n] Of integer;
  i : integer;
  j : integer;
  x : integer;
Begin
  writeln('введите ', n, ' элементов массива');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    readln( a[i] );
  For i := 1 To n - 1 Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := i + 1 To n Do
    Begin
      If a[i] > a[j] Then
      Begin
        x := a[i];
        a[i] := a[j];
        a[j] := x;
      End;
      
    End;
    
  End;
  writeln('после сортировки:');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    writeln( a[i] );
End.