Всем доброго....
Народ, помогите прогу написать дибильную до примитива.
Друг попросил решить, взял по старой памяти. В последнее время работаю только с ПХП, так что в голову только функции ПХП-ые лезут, а на ПХП ее нельзя (только на Паскале)
Что-то не соображу как решить:
В массиве A(n) найти самую длинную пилообразную последовательность.
(Пилообразная последовательность, если я не ошибаюсь, вот a1<a2>a3<a4>...>an
или a1>a2<a3>a4<..<an
Заранее огромный респект

Код

type TArrayEl = integer; <...> function IsPila(a:array of TArrayEl):boolean; var b1,b2:boolean; res:boolean; i:integer; begin res:=true; i:=Low(a); b1:=a[i] < a[i+1]; i:=i+1; while res and (i <= High(a)) do  begin   b2:=a[i] < a[i+1];   res:=b1 = not b2;   b1:=b2;   i:=i + 1;  end; IsPila:=res; end; <...>

Вроде так...

Спб, это даже лучше, чем надо