编译通过...

├ 测试数据 01：答案正确... 9ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：9ms

const

aa:array[1..4,1..2] of integer=((1,0),(-1,0),(0,1),(0,-1));

var

n,m,i,j,max:longint;

a,ff:array[1..500,1..500] of longint;

procedure fff(x,y:integer);

var

i,pi,pj:longint;

begin

for i:=1 to 4 do

begin

pi:=x+aa;

pj:=y+aa;

if (pi>0)and(pi0)and(pja[x,y])and(ff[pi,pj]max

then max:=ff;

writeln(max);

end.

搜索　万岁