Задано массив целых чисел упорядочений по возрастанию А[1; n] и число В. Для числа В найти такое место среди элементов массива А, чтоб после вставки числа В на это место упорядоченность массива не нарушалась. Если впоследствии равенства между собою значений элементов массива А число может вставляться на разные места, то следует выяснить самое близкое к началу массива место.

Const

n = 11;

var

numberToInsert, placeToInsert, i, counter : integer;

massiv : array[1 ... n] of integer;

begin

placeToInsert : = 0;

for i : = 1 to n-1 do

read (massiv[i]) ;

readln (numberToInsert) ;

while (numberToInsert > massiv[placeToInsert]) do

placeToInsert + = 1;

for i : = n - 1 downto placeToInsert do

massiv[i+1] : = massiv[i];

massiv[placeToInsert] : = numberToInsert;

for i : = 1 to n do

write (massiv[i]:3) ;

end.