讨论 / 靠 猥琐的数据
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.

查看更多回复
提交回复