dislike 2009-05-18 02:18:00
点我顶贴
收藏
删除
var
a,rp:array[1..100,1..100] of longint；
n,m,i,j,k,l:longint；
function max(x,y:longint):longint；
begin
if x>y then exit(x)
else exit(y)；
end；
begin
readln(n,m)；
for i:=1 to n do
begin
for j:=1 to m do
read(rp[i,j])；
readln；
end；
fillchar(a,sizeof(a),0)；
a[1]:=rp[1]；
for i:=2 to n do
for j:=1 to m do
for k:=1 to j do
a[i,j]:=max(a[i,j],a[i-1,j-k]+rp[i,k])；
writeln(a[n,m])；
end.