[Dima170792]

Сообщение от Bargest

Берешь входной массив, проходишься по нему, на каждом шаге увеличиваешь некий счетчик C и сравниваешь каждый элемент с предыдущим. Если меньше - то если MaxC<C то MaxC:=C и MaxI:=I-1; сбрасываем C.

Код:

MaxC:=0;
MaxI:=0;
C:=0;
for i:=2 to n do
begin
inc(C);
  if a[i]<a[i-1] then
  begin
    if MaxC<C then 
    begin
       MaxC:=C;
       MaxI:=I-1;
    end;
    C:=1;
  end;
end;

Плюс надо еще запилить проверку если весь массив и так по возрастанию.

Чтоб выковорить последовательность надо

Код:

for i:=MaxI-C+1 to MaxI do ...

а можете проще обьяснить-потомучто уровень знаний у мяня-очень низок( а преподаватель требует по максимуму(