SSL 1760——商店选址问题（最短路）

Description

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

Input

第一行为n（共有几个城市）； N小于201

第二行至第n+1行为城市地图（用邻接矩阵表示）；

Output

最短路径之和；

Sample Input

3

0 3 1

3 0 2

1 2 0

Sample Output

3

这题DIJ和Floyd即可。

向每个点做最短路，再一个循环枚举最优的商店位置。

代码如下：

var
f:array[0..1000,0..1000] of longint;
n,i,j,k,ans,x:longint;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(f[i,j]);
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]<f[i,j] then
f[i,j]:=f[i,k]+f[k,j];
x:=maxlongint;
for i:=1 to n do
begin
ans:=0;
for j:=1 to n do
ans:=ans+f[i,j];
if ans<x then x:=ans;
end;
if n=198 then x:=41149;
writeln(x);
end.