Pascal. нахождения самой длинной возрастающей подпоследовательности

[nemeli]

Не могу решить её, хоть убей
Помогите советом........

Задана последовательность из N чисел. Составить программу нахождения самой длинной возрастающей подпоследовательности данной последовательности.

[danekne]

sum:=0;
maxsum:=0;
for i:=1 to n-1 do
begin
if a[i+1]> a[i];
sum:=sum+1
else
if sum>maxsum then 
begin
maxsum:=sum;
max:=i+1;
min:=i+1-maxsum;
end

Гдей то так. Алгоритм. Наверняка - куча ошибок, но путь поможет найти

[nemeli]

Не это то мне понятно, мне интересна модель вывода элементов самой длинной возрастающей подпоследовательности

[danekne]

for i:=min to max do
write (a[i],' ')

[LeBron]

Народ, подпоследовательность - это, вообще-то, другое
Решать динамикой за квадрат проще всего.
Только для каждого номера храните не только ответ поэтому номеру, но и указатель на предидущий член последовательности, которая является ответом для этого номера. Для первых хранить всегда ноль. Тогда получится что-то типа

while t<>0 do begin 
write(ar[t],' ');
t:=w[t];end;

[nemeli]

Спасибо danekne, твоя идея мне очень помогла Немного покалдовал и получилась достаточно сносная программка