О последовательности...

[somebody_now]

Задание такое было: найти длину самой длинной "пилообразной" цепочки в последовательности
т.е. p[x+1]<p[x+2]<p[x+3]<p[x+n]
был свой код(неверный),но успел где-то его посеять..прошу помочь!

[Игорь Акопян]

поскольку вижу только запрос на код - переношу

[Хыиуду]

for i:=1 to N do
if p[i+1]>p then inc(currentlen)
else begin if currentlen>maxlen then maxlen:=currentlen; currentlen:=0; end;

[somebody_now]

Хыиуду, спасибо за помощь)))