SSL P1761 城市问题

Description

　　设有n个城市，依次编号为0，1，2，……，n-1（n<=100），另外有一个文件保存n个城市之间的距离(每座城市之间的距离都小于等于1000)。当两城市之间的距离等于-1时，表示这两个城市没有直接连接。求指定城市k到每一个城市i（0<=I,k<=n-1）的最短距离。

Input

第一行有两个整数n和k，中间用空格隔开；以下是一个NxN的矩阵，表示城市间的距离，数据间用空格隔开。

Output

输出指定城市k到各城市间的距离（从第0座城市开始，中间用空格分开）

Sample Input

3 1
0 3 1
3 0 2
1 2 0
Sample Output

3 0 2

如果有-1就赋f[i,j]一个超大值，然后flyod。

var
   f:array [0..101,0..101] of longint;
   i,j,k,n,ans:longint;
begin
     readln(n,ans);
     ans:=ans+1;
     for i:=1 to n do
         begin
            for j:=1 to n do
                begin
                    read(f[i,j]);
                    if f[i,j]=-1 then f[i,j]:=maxlongint div 3;
                end;
            readln;
         end;
     for k:=1 to n do
         for i:=1 to n do
                for j:=1 to n do
                   if f[i,k]+f[k,j]then f[i,j]:=f[i,k]+f[k,j];
     for i:=1 to n-1 do write(f[ans,i],' ');
     write(f[ans,n]);
end.