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

177

476

Посмотреть ответы 2

Ответы на вопрос:

olya12011

Информатика

4,7(85 оценок)

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.