what? 2010-10-31 07:04:00
点我顶贴
收藏
删除
一行竟会有N个数。。。
WA了无数次后才AC
var m,n,t,i,j,k:longint;
f:array[0..1000] of longint;
a:array[0..1000] of longint;
begin
read(n,m);
for i:=1 to n do begin
for j:=1 to m do
read(a[j]);
‘’‘’‘’readln;‘’‘’‘’
for j:=m downto 0 do
for k:=1 to j do
if f[j-k]+a[k]>f[j]
then f[j]:=f[j-k]+a[k];
end;
write(f[m]);
end.