Дана неубывающая последовательность целых чисел вставить в нее целое число b таким образом, чтобы последовательность оставалось неубывающей. Учтите, что число может оказаться меньше первого или больше последнего элемента.

pascal

Const n=10;

var a:array[1 ... n+1] of integer;

i, j, b:integer;

begin

Randomize;

writeln ('Исходный массив:') ;

a[1]:=random (51) ;

write (a[1],' ') ;

for i:=2 to n do

begin

a[i]:=a[i-1]+random (51) ;

write (a[i],' ') ;

end;

writeln;

write ('b = ') ;

readln (b) ;

j:=1;

while (j<=n) and (a[j]
for i:=n downto j do a[i+1]:=a[i];

a[j]:=b;

for i:=1 to n+1 do write (a[i],' ') ;

end.

Пример:

Исходный массив:

3 21 47 74 104 134 146 177 184 222

b = 120

3 21 47 74 104 120 134 146 177 184 222