顺便弱弱的问一句，还有没有别的思路啊
var m,n,j,k,i,x1,x2,y1,y2,x,max1,max2,t,max,ans:longint;
a:array[1..1000,1..1000]of longint;
procedure maxx(var x,y,max:longint);
begin
max:=0;
for i:=1 to m do
for j:=1 to n do
if (a[i,j]>max) then begin max:=a[i,j];x:=i;y:=j;end;
end;
begin
read(m,n,t);
for i:=1 to m do
for j:=1 to n do read(a[i,j]);
maxx(x2,y2,max);
x:=0;y1:=y2;
while t>abs(x1-x2)+abs(y1-y2)+x2+1 do
begin
t:=t-(abs(x1-x2)+abs(y1-y2)+1);
a[x2,y2]:=0;
x1:=x2;y1:=y2;
inc(ans,max);
maxx(x2,y2,max);
end;
writeln(ans);
end.

PID23 / 花生采摘 ☆
提交你的代码
查看讨论和题解
20小时前
我的状态
未通过
2015-07-14 18:17:39
运行耗时：无效
运行内存：无效
查看最后一次评测记录
  质量 8
题目评价
质量8
★★★★★
★★★★☆
★★★☆☆
★★☆☆☆
★☆☆☆☆
66.6%
0%
16.6%
0%
16.6%
★ ★ ★ ★ ☆
  通过人数 1907 / 5899
通过统计
最短耗时 0ms
最小内存 0KB
  模拟
题目标签
类型
模拟
来源
NOIP2004普及组
题目描述
　　鲁宾逊先生有一只宠物猴，名叫多多。这天，他们两个正沿着乡间小路散步，突然发现路的告示牌上贴着一张小小的纸条：“欢迎免费品尝我种的花生!——熊字”。
　　鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花生植株整齐地排列成矩形网格(如图1)。有经验的多多一眼就能看出，每棵花生植株下的花生有多少。为了训练多多的算术，鲁宾逊先生说：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此类推，不过你一定要在我限定的时间内回到路边。”

　　我们假定多多在每个单位时间内，可以做下列四件事情中的一件：
　　1) 从路边跳到最靠近路边(即第一行)的某棵花生植株；
　　2) 从一棵植株跳到前后左右与之相邻的另一棵植株；
　　3) 采摘一棵植株下的花生；
　　4) 从最靠近路边(即第一行)的某棵花生植株跳回路边。
　　现在给定一块花生田的大小和花生的分布，请问在限定时间内，多多最多可以采到多少个花生?注意可能只有部分植株下面长有花生，假设这些植株下的花生个数各不相同。
　　例如在图2所示的花生田里，只有位于(2,5)，(3,7)，(4,2)，(5,4)的植株下长有花生，个数分别为13,7,15,9。沿着图示的路线，多多在21个单位时间内，最多可以采到37个花生。
输入格式
　　输入的第一行包括三个整数，M,N和K，用空格隔开；表示花生田的大小为M*N(1<=M,N<=20)，多多采花生的限定时间为K(0<=K<=1000)个单位时间。接下来的M行，每行包括N个非负整数，也用空格隔开；第i+1行的第j个整数Pij(0<=Pij<=500)表示花生田里植株(i,j)下花生的数目，0表示该植株下没有花生。
输出格式
输出包括一行，这一行只包含一个整数，即在限定时间内，多多最多可以采到花生的个数。
这是题目，忘了（我都写了好几种代码，都不行，没办法了）

当然取最短路啊

哦，不

不能这样的，我差点蒙了，只能走bcd