lani711 2015-12-02 20:31:32
点我顶贴
收藏
删除
var x,y,z,i,sum,j,x1,y1,x2,y2,shi:longint;
a:array[0..21,0..21] of longint;
begin
readln(x,y,z);
for i:=1 to x do
begin
for j:=1 to y do
read(a[i,j]);
readln;
end;
while true do
begin
for i:=1 to x do
for j:=1 to y do
if a[i,j]>a[x2,y2] then
begin
x2:=i;
y2:=j;
end;
if x1=0 then y1:=y2;
shi:=abs(x1-x2)+abs(y1-y2)+1+x2;
if (a[x2,y2]=0)or(shi>z) then break;
z:=z-abs(x1-x2)-abs(y1-y2)-1;
sum:=sum+a[x2,y2];
x1:=x2;y1:=y2;
a[x2,y2]:=0;
end;
writeln(sum);
end.