编译通过...

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

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

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

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

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

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

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

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

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

├ 测试数据 10：答案错误...程序输出比正确答案长

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

type

rec=record

x,y,data:longint;

end;

var

a,f:array[0..501,0..501]of longint;

m,c,r,i,j,k:longint;

b:array[0..250001]of rec;

procedure qsort(l,r:longint);

var

i,j:longint;

t,x:rec;

begin

i:=l;j:=r;x:=b[(l+r) div 2];

repeat

while (b[i].datamax then max:=c;

if d>max then max:=d;

end;

begin

read(r,c);

for i:=1 to r do

for j:=1 to c do

begin

k:=k+1;

read(a);

b[k].data:=a;

b[k].y:=i;b[k].x:=j;

end;

qsort(1,r*c);

for i:=1 to r*c do

begin

J:=b[i].y;k:=b[i].x;

f[j,k]:=1+max(f[j-1,k],f[j+1,k],f[j,k+1],f[j,k-1]);

end;

m:=0;

for i:=1 to r do

for j:=1 to c do if m