Последовательность чисел, Помогите решить Опции

[Ольга]

Помогите решить, пожалуйста, такую задачу:

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

Заранее, спасибо. Оля

[Ольга]

Спасибо большое за реальную помощь. Я программу опробовала и попробую объяснить (может и не все правильно), как она работает.
Последовательность заполняется случайными числами.
m - максимальное кол-во чисел последовательности
к- количество последовательностей
Далее идет цикл с постусловием. Идет сравнение последующего числа с предыдущим. Выводится на печать "максимальная последовательность из __чисел и количество возможных последовательностей.
А далее я эту часть программы я затрудняюсь объяснить:

    e[i]:=1;
    l:=1;
    Gr:=true;
    x:=i;
    for j:=i+1 to n do if e[j]=1 then begin
      Inc(l);
      if a[x]>=a[j] then Gr:=false else x:=j
    end;
    if Gr then if l>m then begin
      m:=l;
      k:=1
    end
    else if l=m then Inc(k)
  until false

Если Вы можете, то поясните, пожалуйста.

М

Ольга, при публикации программного текста обязательно используй теги! Lapp