SSL1760商店选址问题

SSL1760商店选址问题

题目

给出一个城市的地图（用邻接矩阵表示），商店设在一点，使各个地方到商店距离之和最短。

题意

求图的中心点

题解

求图的中心，先用Floyd求所有点之间的最短路径，再在这些点中找一个到所有点的最短路径之和最短的点。
时间复杂度：Floyd=O(n*n*n)

代码

var
  i,j,n,k,x,min,ans,t:longint;
  a:array[1..200,0..200]of longint;
begin
  readln(n);
  fillchar(a,sizeof(a),$7f);
  for i:=1 to n do
    for j:=1 to n do
      begin
      read(a[i,j]);
      if a[i,j]=0 then a[i,j]:=a[1,0];
      end;
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if (a[i,j]<a[1,0])and(a[i,k]+a[k,j]<a[i,j]) then
          begin
            a[i,j]:=a[i,k]+a[k,j];
          end;
  min:=maxlongint;
  for i:=1 to n do
    begin
      k:=0;
      for j:=1 to n do
        if (a[i,j]<a[1,0]) then k:=k+a[i,j];
      if k<min then min:=k;
    end;
  writeln(min);
end.