Задано массив целых чисел упорядочений по возрастанию А[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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
