Дана неубывающая последовательность целых чисел вставить в нее целое число 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 (jlt;=n)and(a[j]lt;b) do j:=j+1;
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