Написать программу, которая вставляет число K в заданную возрастающую последовательность...

Question

Написать программу, которая вставляет число 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.

Comments

да почему никто на c++ не учиться?!

---

какие вещи в с+ вы ручками делаете? библиотек и там и там хватает.

---

это уже идет углбление. от горшка достаточно знать циклы, массивы, условные операторы и пару функций библиотеки ввода/вывода.

---

Хероли базар устроили. Меня по человечески попросили кинуть задание....

Answer 1

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.

Ваша программа полностью работает и делает то, что должна делать. Проверена вставка в середину и на краях.

Comments

От друга: Большое человеческое спасибо)

---

Ошибаетесь, он как раз всё понимает. Мы с другом вдвоём ходим на курсы. Он очень требователен. Пишем по такому принципу: Чем меньше, тем оптимизированней)