我也差不多

├ 测试数据 01：运行时错误...|错误号: -1073741571

├ 测试数据 02：运行时错误...|错误号: -1073741571

├ 测试数据 03：运行时错误...|错误号: -1073741571

├ 测试数据 04：运行时错误...|错误号: -1073741571

├ 测试数据 05：运行时错误...|错误号: -1073741571

├ 测试数据 06：运行时错误...|错误号: -1073741571

├ 测试数据 07：运行时错误...|错误号: -1073741571

├ 测试数据 08：运行时错误...|错误号: -1073741571

├ 测试数据 09：运行时错误...|错误号: -1073741571

├ 测试数据 10：运行时错误...|错误号: -1073741571

我的也是这样的错误，不知道是为什么。

真的无语了。谁来帮帮我。。

编译通过...

├ 测试数据 01：运行时错误...|错误号: -1073741571

├ 测试数据 02：运行时错误...|错误号: -1073741571

├ 测试数据 03：运行时错误...|错误号: -1073741571

├ 测试数据 04：运行时错误...|错误号: -1073741571

├ 测试数据 05：运行时错误...|错误号: -1073741571

├ 测试数据 06：运行时错误...|错误号: -1073741571

├ 测试数据 07：运行时错误...|错误号: -1073741571

├ 测试数据 08：运行时错误...|错误号: -1073741571

├ 测试数据 09：运行时错误...|错误号: -1073741571

├ 测试数据 10：运行时错误...|错误号: -1073741571

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

Unaccepted 有效得分：0 有效耗时：0ms

program p1011;

type

node=record

x,y,s:longint;

end;

const

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

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

var

r,c,i,j:integer;

ttl,h,t,max:longint;

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

function gmax(a,b:longint):longint;

begin

if a>b then exit(a) else exit(b);

end;

function dfs(ii,jj:integer):longint;

var

i:integer;

max:longint;

begin

max:=0;

for i:=1 to 4 do

if ((ii+dx[i]) in [1..r])and

((jj+dy[i]) in [1..c]) then

begin

if a[ii,jj]max then max:=f;

writeln(max+1);

end.