Description
农夫John发现做出全威斯康辛州最甜的黄油的方法：糖。把糖放在一片牧场上，他知道N（1<=N<=500）只奶牛会过来舔它，这样就能做出能卖好价钱的超甜黄油。当然，他将付出额外的费用在奶牛上。
农夫John很狡猾。像以前的Pavlov，他知道他可以训练这些奶牛，让它们在听到铃声时去一个特定的牧场。他打算将糖放在那里然后下午发出铃声，以至他可以在晚上挤奶。
农夫John知道每只奶牛都在各自喜欢的牧场（一个牧场不一定只有一头牛）。给出各头牛在的牧场和牧场间的路线，找出使所有牛到达的路程和最短的牧场（他将把糖放在那）
Input
第一行: 三个数：奶牛数N，牧场数（2<=P<=800），牧场间道路数C(1<=C<=1450)
第二行到第N+1行: 1到N头奶牛所在的牧场号
第N+2行到第N+C+1行： 每行有三个数：相连的牧场A、B，两牧场间距离D（1<=D<=255），当然,连接是双向的
Output
一行 输出奶牛必须行走的最小的距离和
Sample Input
3 4 5
2
3
4
1 2 1
1 3 5
2 3 7
2 4 3
3 4 5
样例图形
P2
P1 @–1–@ C1
\ |\
\ | \
5 7 3
\ | \
| \ C3
C2 @–5–@
P3 P4
Sample Output
8
{说明：放在4号牧场最优 }
Source
FZY-FHN
题解：
因为是无向图，所以枚举放的点作为起点SPFA算出分别到达其他点的距离即可
代码：
varl,n,m,h,t,ans:longint;num,dist:array [0..801] of longint;a,b:array [0..801,0..801] of longint;d:array [0..20001] of integer;v:array [0..801] of boolean;
procedure init;
vari,j,x,y,z:longint;
beginfillchar(num,sizeof(num),0);fillchar(a,sizeof(a),$7f div 2);read(l,n,m);for i:=1 to l dobeginread(x);inc(num[x]);end;for i:=1 to m dobeginread(x,y,z);inc(b[x,0]); b[x,b[x,0]]:=y; a[x,y]:=z;inc(b[y,0]); b[y,b[y,0]]:=x; a[y,x]:=z;end;
end;procedure spfa(s:longint);
vari,tk,sum:longint;
beginfillchar(d,sizeof(d),0);fillchar(v,sizeof(v),false);fillchar(dist,sizeof(dist),$7f div 2);dist[s]:=0; v[s]:=true; d[1]:=s; h:=0; t:=1;repeattk:=d[h];for i:=1 to b[tk,0] doif dist[b[tk,i]]>dist[tk]+a[tk,b[tk,i]] thenbegindist[b[tk,i]]:=dist[tk]+a[tk,b[tk,i]];if not v[b[tk,i]] thenbegininc(t);d[t]:=b[tk,i];v[b[tk,i]]:=true;end;end;v[tk]:=false;inc(h);until h>t;sum:=0;for i:=1 to n doinc(sum,dist[i]*num[i]);if ans>sum then ans:=sum;
end;procedure main;
vari:longint;
beginans:=maxlongint;for i:=1 to n dospfa(i);write(ans);
end;begininit;main;
end.