В упорядоченный по

возрастанию числовой массив из 15 элементов вставить числа - 2 и 5, не нарушая

упорядоченности.

Const n = 15;

type ArrayOfInteger = array [1 ... n+2] of integer;

procedure ArrayOutput (A: ArrayOfInteger; a_length: integer) ;

var i: integer;

begin

for i : = 1 to a_length do

write (A[i]:4, ' ') ;

writeln;

end;

procedure ArraySort (var A: ArrayOfInteger; a_length: integer) ;

var i, j, temp: integer;

begin

for i : = 1 to a_length-1 do

for j : = i+1 to a_length do

if A[i]>A[j] then begin

temp:=A[i];

A[i]:=A[j];

A[j]:=temp;

end;

end;

var

mass:ArrayOfInteger;

i:integer;

begin

writeln ('Программа упорядочивает массив по возрастанию ') ;

writeln ('и вставляет числа - 2 и 5, не нарушая упорядоченности.') ;

{Создаём массив}

randomize;

for i : = 1 to n do

mass[i] : = random (100) - 50;

writeln ('Начальный массив: ') ;

ArrayOutput (mass, n) ;

ArraySort (mass, n) ;

writeln ('Отсортированный массив: ') ;

ArrayOutput (mass, n) ;

{Добавляем к массиву числа - 2 и 5 и сортируем полученный массив}

mass[n+1]:=-2;

mass[n+2]:=5;

ArraySort (mass, n+2) ;

{Выводим итоговый массив}

writeln ('Упорядоченный массив: ') ;

ArrayOutput (mass, n+2) ;

end.