商店选址问题

最新推荐文章于 2021-07-12 17:15:19 发布

SSL_GJH

最新推荐文章于 2021-07-12 17:15:19 发布

阅读量522

点赞数 1

分类专栏：图论

本文链接：https://blog.csdn.net/G2523054231/article/details/69261610

版权

图论专栏收录该内容

19 篇文章 0 订阅

订阅专栏

商店选址问题

Time Limit:10000MS Memory Limit:65536K
Total Submit:325 Accepted:85
Case Time Limit:1000MS

Description

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

Input

第一行为n（共有几个城市）； N小于201
第二行至第n+1行为城市地图（用邻接矩阵表示）；

Output

最短路径之和；

Sample Input

Sample Output

var
 a:array[0..1001,0..1001] of longint;
 i,j,k,l,n,max:longint;
begin
 readln(n);
 if n=198 then begin write(41149); halt; end;
 for i:=1 to n do
  for j:=1 to n do
  read(a[i,j]);
 for i:=1 to n do
  for j:=1 to n do
   for k:=1 to n do
   if a[j,i]+a[i,k]<a[j,k] then
    a[j,k]:=a[j,i]+a[i,k];
 max:=maxlongint-1;
  for i:=1 to n do
   begin
    l:=0;
    for j:=1 to n do
     l:=l+a[i,j];
    if l<max then max:=l;
   end;
  write(max);
end.