Developing.ru

Задание такое было: найти длину самой длинной "пилообразной" цепочки в последовательности
т.е. 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;

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