найти количество строго возрастающих последовательностей максимальной длины

[фед]

Задается натуральное число N и последовательность a1, …, aN из N целых чисел.
Мы можем вычеркнуть из этой последовательности какие-то элементы и получить строго возрастающую последовательность.
Требуется найти количество строго возрастающих последовательностей максимальной длины, которые мы можем получить вычеркиванием каких-то элементов из введенной последовательности.

[Oleg_Rus]

Код: Выделить всё

var a: array [1..n] of integer;
begin
  for i:=1 to n do read(a[i]);
  for i:=1 to n do 
  if a[i]<a[i+1] then inc(count) 
  else if max>count then max:=count;
  for i:=1 to n do write(max)
end.

это алгоритм нахождения максимальной последовательности. Далее сам добей код.

[фед]

Спасибо большое!