Задано массив целых чисел по возрастанию а[1; n] и число в. для числа в найти такое место среди элементов массива а, чтоб после вставки числа в на это место массива не нарушалась. если впоследствии равенства между собою значений элементов массива а число может вставляться на разные места, то следует выяснить самое близкое к началу массива место.
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.