題目描述
魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格（如圖1）。有經驗的多多一眼就能看出，每棵花生植株下的花生有多少。為了訓練多多的算術，魯賓遜先生說：「你先找出花生最多的植株，去採摘它的花生；然後再找出剩下的植株裡花生最多的，去採摘它的花生；依此類推，不過你一定要在我限定的時間內回到路邊。」
我們假定多多在每個單位時間內，可以做下列四件事情中的一件：
1) 從路邊跳到最靠近路邊（即第一行）的某棵花生植株；
2) 從一棵植株跳到前後左右與之相鄰的另一棵植株；
3) 採摘一棵植株下的花生；
4) 從最靠近路邊（即第一行）的某棵花生植株跳回路邊。
現在給定一塊花生田的大小和花生的分布，請問在限定時間內，多多最多可以採到多少個花生？注意可能只有部分植株下面長有花生，假設這些植株下的花生個數各不相同。
例如在圖2所示的花生田裡，只有位於(2, 5), (3, 7), (4, 2), (5, 4)的植株下長有花生，個數分別為13, 7, 15, 9。沿著圖示的路線，多多在21個單位時間內，最多可以採到37個花生。
輸入輸出格式
輸入格式：
輸入檔案peanuts.in的第一行包括三個整數，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表示該植株下沒有花生。
輸出格式：
輸出檔案peanuts.out包括一行，這一行只包含乙個整數，即在限定時間內，多多最多可以採到花生的個數。
輸入輸出樣例
輸入樣例#1：67
21000
0000
0000
13000
0000
07015
0000
0000
9000
0000
000輸出樣例#1：
37輸入樣例#2：67
20000
0000
0000
13000
0000
07015
0000
0000
9000
0000
000輸出樣例#2：
28題解：這道題用貪心做，然後用total來記錄多多即在限定時間內，最多可以採到花生的個數。
源**：
var t,m,n,k,i,j:longint;
max,max1,max2,max3,max4,total:longint;
a:array[1..20,1..20] of longint;
begin
readln(m,n,k);
k:=k-2;
max:=0;
for i:=1
to m do
for j:=1
to n do
begin
read(a[i,j]);
if a[i,j]>max then
begin
max:=a[i,j];
max1:=i;
max2:=j;
end;
end;
t:=max1;total:=0;
while (t+max1-1
<=k) and (max>0) do
begin
a[max1,max2]:=0;total:=total+max;
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];
max3:=i;
max4:=j;
end;
t:=t+1+abs(max1-max3)+abs(max2-max4);
max1:=max3;max2:=max4;
end;
writeln(total);
end.
洛谷 1086 花生採摘
題目描述 魯賓遜先生有乙隻寵物猴，名叫多多。這天，他們兩個正沿著鄉間小路散步，突然發現路邊的告示牌上貼著一張小小的紙條 歡迎免費品嚐我種的花生！熊字 魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格 如圖1 有經驗的多多一眼就能看出，...
洛谷 P1086 花生採摘
題目描述 魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格 如圖1 有經驗的多多一眼就能看出，每棵花生植株下的花生有多少。為了訓練多多的算術，魯賓遜先生說 你先找出花生最多的植株，去採摘它的花生 然後再找出剩下的植株裡花生最多的，去採...
洛谷 P1086 花生採摘
魯賓遜先生有乙隻寵物猴，名叫多多。這天，他們兩個正沿著鄉間小路散步，突然發現路邊的告示牌上貼著一張小小的紙條 歡迎免費品嚐我種的花生！熊字 魯賓遜先生和多多都很開心，因為花生正是他們的最愛。在告示牌背後，路邊真的有一塊花生田，花生植株整齊地排列成矩形網格 如圖1 有經驗的多多一眼就能看出，每棵花生植...