Волнистая последовательность Опции

[xprogrammer]

Назовенм последовательность волнистой если для всех кроме первого элемента выполняется: для всех элементов кроме первого и последнего, что либо этот член последовательности больше всех своих соседей, либо меньше.
Например : 12121212121-волнистая
а 123321 - нет
дана последовательность и надо из неё выделить самую большую волнистую подпоследовательность .
Последовательность храниться в массиве помогите хоть алгоритмом.

[klem4]

Что - то вы тут разшлись, может я что не так понял конечно, вот таккой вариант пойдет ?

uses crt;
const
  n = 6;

type
  TArray = array [1..n] of Byte;

const
  A : TArray = (
   1, 2, 1, 2, 1,3 
  );

function Compare(a, b: Byte): Integer;
begin
  if a > b then
   Compare := 1
    else if a = b then
     Compare := 0
      else Compare := -1;
end;

function IsOk: Boolean;
var
  i, x, y: Integer;
begin
  i := 0;
  repeat
    inc(i);
    if (i <= n - 2) then begin
      x := Compare(A[i], A[i + 1]);
      y := Compare(A[i + 1], A[i + 2]);
    end;
  until ((i > n - 2) or (x * y = 0) or (y = x));
  isOk := (i > n - 2);
end;

begin
  clrscr;
  if IsOk then writeln('Sequence -- OK')
   else writeln('Sequence -- BAD');
  readln;
end.

[Lapp]

может я что не так понял конечно, вот таккой вариант пойдет ?

klem4, я правильно понимаю, что ты только проверяешь, является ли последовательность волнистой?
Вопрос задания стоит иначе..