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.

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.

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

Answer 2

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

Answer 3

Хреновый он тогда программист, если судит по размеру исходника об эффективности алгоритмов. Заявляю это, как программист с почти 20-летним стажем.