编译通过...

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

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

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

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

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

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

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

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

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

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

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

程序：

program p1139;

type bt=record

x,y:longint;

end;

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

step:array[1..100,1..500]of bt;

f,g:array[1..500]of int64;

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

min:int64;

procedure out(i,j:longint);

begin

if (i>0) then

begin out(step.x,step.y);writeln(j); end;

end;

begin

readln(m,n);

for i:=1 to m do for j:=1 to n do read(a);

for i:=1 to m do

for j:=1 to n do

begin step.x:=i-1;step.y:=j; end;

for i:=1 to n do f[i]:=a[1,i];

for i:=2 to m do

begin

for j:=1 to n do g[j]:=f[j]+a;

for j:=n downto 1 do

begin

if (j+1