商店选址问题

商店选址问题

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

30 3 13 0 21 2 0

Sample Output

3

• 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.