讨论 / AC 纪念 Pascal
lani711 2015-12-03 12: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.

#1 潘崇明@2016-02-12 16:15:22
回复 删除
你这个是错的
#2 草泥马萌咩咩@2016-03-03 15:46:47
回复 删除
明明是对的啊
#3 草泥马萌咩咩@2016-03-03 15:47:12
回复 删除
回复 #1 潘崇明:明明是对的啊

#4 草泥马萌咩咩@2016-03-03 15:48:08
回复 删除
回复 #1 潘崇明:明明是对的啊
#5 草泥马萌咩咩@2016-03-03 15:48:12
回复 删除
回复 #1 潘崇明:明明是对的啊

查看更多回复
提交回复