回朔的方法。

经典的最长不上升子序列问题，去google搜索一下吧。

应该不会很难吧.待我回去研究一下子哈....

冒泡排序法吧！

若是冒泡排序就错的一塌糊涂..............(连样例都过不了)

var n,i,j,z,w,b,max,o:integer;a:array[1..20] of integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then begin z:=a[i];a[i]:=a[j];a[j]:=z;end;
for i:=1 to n do write(a[i],' ');writeln;
w:=1;b:=a[1];o:=1;
repeat
w:=w+1;b:=b-1;
if b=a[w] then
o:=o+1
else
if b+1<>a[w] then
begin
if o>max then max:=o;
b:=a[w];o:=1;
end
else b:=b+1;
until w>=n;
if o>max then max:=o;
writeln(max);
end.

这个是最长不上升子序列用动态规划外理,这是一类经典问题