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

Question

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

Answer 1

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.