零度 2012-02-26 02:20:00
点我顶贴
收藏
删除
var
n,t,i,j,name,k:longint;
f:array[0..100] of longint;
fs:array[1..10,1..100] of longint;
begin
readln(t,n,name);
for i:=1 to n do
for j:=1 to t do
read(fs[i,j]);
for i:=1 to n do
for j:=1+name to t do
for k:=t downto j do
if f[k]<f[k-j]+fs[i,j] then f[k]:=f[k-j]+fs[i,j];
writeln(f[t]);
end.