Дана неубывающая последовательность целых чисел вставить в нее целое число b таким...

Question

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

Answer 1

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]<b) do j:=j+1;<br>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