const dx:array[1..4] of integer=(-1,0,1,0);
dy:array[1..4] of integer=(0,-1,0,1);
var
n,m,l,r,k,i,j,ans:longint;
a,b:array[0..501,0..501] of longint;
procedure dfs(i,j:longint);
var k,l,x,y:longint;
begin
if b[i,j]>ans then ans:=b[i,j];
for k:=1 to 4 do
if (a[i+dx[k],j+dy[k]]>a[i,j])and(b[i,j]+1>b[i+dx[k],j+dy[k]]) then
begin b[i+dx[k],j+dy[k]]:=b[i,j]+1;dfs(i+dx[k],j+dy[k]); end;
end;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=1 to m do
begin
if b[i,j]=0 then begin b[i,j]:=1;dfs(i,j); end;
end;
writeln(ans);
end.

评测状态 System Error
题目 P1011 清帝之惑之顺治
递交时间 2014-01-17 19:21:54
代码语言 Pascal
评测机 Jtwd2
消耗时间 0 ms
消耗内存 0 KiB
评测时间 2014-01-17 19:27:07

系统错误:
JSTATUS_NOT_FOUND

why？？？
怎么会系统错误啊？
是不是电脑问题？
诡异。。