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

   Номер      i    (1)      Массив А
   теста

     1        3     +     (1,   3,   5)
              2     +     (1,   3,   5,   5)
              1     +     (1,   3,   3,   5)
                  -(кц)   (1,   1,   3,   5)
                          (0,   1,   3,   5)

     2        3     +     (1, 3, 5)
              2   -(кц)   (1, 3, 5, 5)
                          (1, 3, 4, 5)

     3        3   -(кц)   (1, 3, 5)
                          (1, 3, 5, 6)


Turbo Pascal
Program Insertion;
Uses Crt;
Var A       : Array [1..20] of Real;
     D      : Real;
     N, i : Integer;
{--------------------------------------------}
Procedure InputOutput; {описание процедуры ввода-вывода}
 Begin      ClrScr;
   Write(’Количество элементов массива - ’);           ReadLn(N);
   WriteLn(’Введите элементы массива, упорядоченные по
возрастанию:’);
   For i := 1 to N do
      begin     Write(’A[’ , i , ’] = ’); ReadLn(A[i])
      end;      WriteLn;
   Write(’Введите число, которое требуется включить в массив:
’);
   ReadLn(D);
   ClrScr;      Write(’Исходный массив :’);
   For i := 1 to N do Write(A[i] : 5 : 1); WriteLn;
   WriteLn(’Включаемый элемент – ’, D : 5 : 1);
End;      { of InputOutput }
{--------------------------------------------}
Procedure Insert; {описание процедуры включения нового элемента}
Begin
  i:=N;
  While (i>=1) and (A[i]>D) do
     begin A[i+1] := A[i];       {сдвиг очередного элемента вправо}
             i:=i–1
     end;
  A[i+1] := D {включение числа D в последовательность}
End;
{--------------------------------------------}
Procedure Result; {описание процедуры вывода результатов}
Begin     WriteLn;
  Write(’О т в е т : массив с включенным элементом ’);