讨论 / 为什么是wa:80
574380920 2010-12-22 02:32:00
点我顶贴 收藏 删除
请哪位大牛看一下说一说我的错误

代码:var a:array[1..10,1..2000] of longint;

i,j,n,t,k,name,x,y:longint;

f:array[0..2000] of longint;

begin

readln(t,n,name);

for i:=1 to 10 do

for j:=1 to 2000 do

a[i,j]:=0;

for i:=1 to n do

begin

for j:=1+name to t+name do

read(a[i,j]);

readln;

end;

f[0]:=0;x:=1+name;

for i:=1 to t do

for j:=1 to n do

for k:=x to i do

if f[i-k]+a[j,k]>f[i] then f[i]:=f[i-k]+a[j,k];

writeln(f[t]);

end.

查看更多回复
提交回复