比赛 20091019练习题 评测结果 AAAAAAAAAAAA
题目名称 公路网 最终得分 100
用户昵称 chengyang 运行时间 0.080 s
代码语言 Pascal 内存使用 0.32 MiB
提交时间 2009-10-19 20:42:00
显示代码纯文本
program sie;
var
  map:array[0..201,0..201]of longint;
  a,b,c,i,j,n,k:longint;
  F:BOOLEAN;
begin
  assign(input,'sie.in');
  assign(output,'sie.out');
  reset(input);
  rewrite(output);
  for i:=0 to 201 do begin
    for j:=0 to 201 do  map[i,j]:=-1;
  end;
  readln(n);
  for i:=1 to n do begin
     for j:=1 to n do begin
       read(a);
       map[i,j]:=a;
     end;
     readln;
  end;
  for i:=1 to n do begin
    for j:=i+1 to n do begin
      k:=1; f:=true;
      while (f) and(k<=n)do begin
        if (map[i,j]=map[i,k]+map[k,j])and(k<>i)and(k<>j) then f:=false
        else inc(k);
      end;
      if (f) and (k=n+1) then writeln(i,' ',j);
    end;
  end;
  close(input); close(output);
End.