比赛 |
noip2016普及练习2 |
评测结果 |
C |
题目名称 |
保卫钓鱼岛! |
最终得分 |
0 |
用户昵称 |
yzc |
运行时间 |
0.000 s |
代码语言 |
Pascal |
内存使用 |
0.00 MiB |
提交时间 |
2016-11-07 20:33:41 |
显示代码纯文本
var
map:array[0..10000,0..10000]of longint;
n,i,m,ans,mid,sum,max,a,b,t,k,j:longint;
begin
assign(input,' diaoyu.in');
reset(input);
assign(output,'diaoyu.out');
rewrite(output);
readln(n,m);
fillchar(map,sizeof(map),$3f);
for i:=1 to n-1 do
begin
readln(a,b,t);
map[a,b]:=t;
end;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if map[i,k]+map[k,j]<map[i,j] then map[i,j]:=map[i,k]+map[k,j];
for i:=1 to m do
begin
readln(a,b);
if map[a,b]<100 then
begin
inc(ans);
sum:=sum+map[a,b];
end;
end;
writeln(ans);
writeln(sum);
end.
close(input);close(output);
end.