【问题描述】
给定长度为n的正整数序列a1,a2,…,an。
求一个递增的子序列，和最大。
【输入】
第一行，n，表示给定序列的个数。
第二行，n个用空格隔开的正整数。
【输出】
递增子序列的最大和。
【数据范围限制】
n<=1000,0<ai<=109。
var a:array[..] of longint;
f:array[..] of longint;
n,i,j,ans:longint;
function max(x,y:longint):longint;
begin
if x>y then exit(x) else exit(y);
end;
begin
readln(n);
fillchar(f,sizeof(f),);
for i:= to n do read(a[i]);
f[]:=a[];//这句话应该放在数组读完数后面
for i:= to n do
begin
for j:= to i- do
if a[i]>a[j] then f[i]:=max(f[j],f[i]);
f[i]:=f[i]+a[i];
end;
ans:=;
for i:= to n do
if f[i]>ans then ans:=f[i];
writeln(ans);
end.