Sekretik111

08.06.2019 13:10 •  Информатика

Написать программу, которая вставляет число k в заданную возрастающую последовательность таким образом, что в результате полученная последовательность также остается полностью возрастающей. (язык программирования - паскаль) - нужно подредактировать //некоторому счётчику i присваиваем значение 1. далее в цикле while проверяем является ли //a[i] меньше k. если да, то проверяем, i< > n, если да, проверяем и a[i] больше k, если да, //то присваиваем некоторой логической переменной значение true и выходим из цикла.//если true, то вставляем k на i-е место (нужно оговорить отдельно, что под этим понимается), //если нет - то выводим сообщение - втавить нельзя. var a: array[1..11] of integer; i, k, t: integer; begin for i : = 1 to 10 do read(a[i]); read(k); for t : = 1 to 11 do if a[t] > k then break; for i : = 11 downto t + 1 do a[i] : = a[i - 1]; a[t] : = k; for i : = 1 to 11 do write(a[i], ' '); end.