Тема-Одномерные массивы. Паскаль

[rusfin01]

Найти максимальную по длине монотонную (т.е. либо не убывающую, либо не возрастающую) последовательность чисел в массиве Х[1..N] целых чисел.
Заранее благодарен)))

[vovk]

наработок нет, как решать не знаеш, когда тему проходили ты болел?
Так? )

[rusfin01]

Именно в этом и есть дело, поэтому прошу помочь написать!)

[andrewpalkin]

На этом форуме , все только и просят помощи , что болели Кто учится то , если все болеют

[p51x]

про последовательности точно были темы некоторое время назад

[rusfin01]

Значит мне здесь не помогут!?

[andrewpalkin]

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

Значит мне здесь не помогут!?

Ну ты бы хоть постарался что-то сделать и выложить код !

[rusfin01]

Uses crt;
const n=20;

var
i :integer;
dlina_posl_max :integer;
dlina_posl_tek :integer;
pol_posl_max :integer;
pol_posl_tek :integer;
X:  array [1..n] of integer;

begin
randomize;
for i:= 1 to n do
begin
 X[i]:=random(5);
 write(X[i],' ');
end;

dlina_posl_max:=1;
dlina_posl_tek:=1;
pol_posl_max:=1;
pol_posl_tek:=1;

for i:= 1 to n-1 do
begin
 if X[i]=X[i+1] then
  begin
   dlina_posl_tek:=dlina_posl_tek+1;
   if dlina_posl_tek < 3 then
    begin
      pol_posl_tek:=i;
    end
  end
 else
  begin
   if dlina_posl_tek > dlina_posl_max then
    begin
     dlina_posl_max:=dlina_posl_tek;
     pol_posl_max:=pol_posl_tek;
     dlina_posl_tek:=1;
    end
   else
    begin
     dlina_posl_tek:=1;
    end
 end
end;
writeln('');
writeln('длина последовательности максимальная: ',dlina_posl_max);
writeln('положение начала последовательности:   ',pol_posl_max);

end.

Вот наработал!

[andrewpalkin]

Что именно не работает ?

[rusfin01]

макс. Последовательность иногда выводит 1, а такого быть не должно!
что в программе поменять нужно, понять никак не могу?