Написать программу, которая вставляет число 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.
(Язык программирования - Паскаль) - Нужно подредактировать
//Некоторому счётчику 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.
More Questions From This User See All