Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 34 стр.

                          1, 5, 7,
                              2
   2
         3       -
                          1, 2, 7,
         4       +
                              5
                          1, 2, 5,
   3     4       +
                              7

Turbo Pascal
Program Regulation;
  Uses Crt;
  Type Mas = Array [1..10] of Real;
  Var A          : Mas;
       i, j, N : Integer;
       Tmp       : Real;
   {--------------------------------------------}
  Procedure Input; {описание процедуры ввода массива }
     Begin
       ClrScr;
       Write('Введите N = '); ReadLn(N);
       WriteLn('Введите элементы массива: ');
       For i := 1 to N do
          begin Write('A [ ' , i , ' ] = ');
                 ReadLn(A[i])
          end;
     End; {of Input}
   {--------------------------------------------}
  Procedure Regulate; {описание процедуры упорядочения по
возрастанию}
     Begin
       For i := 1 to N-1 do
          For j := i+1 to N do
             If A[i] > A[j] then
               begin Tmp:=A[i]; A[i]:=A[j]; A[j]:=Tmp
               end;
     End; {of Regulate}
   {--------------------------------------------}
  Procedure Output; {описание процедуры вывода результата}
     Begin
       WriteLn('Упорядоченный массив :');
       For i:=1 to N do Write( A[i] : 6 : 1);
       WriteLn; ReadLn
     End; {of Output}
   {--------------------------------------------}
BEGIN
  Input;       {вызов процедуры ввода массива }
  Regulate; {вызов процедуры упорядочения по возрастанию}
  Output       {вызов процедуры вывода результата}
END.