首页 > 学院 > 开发设计 > 正文

挖地雷

2019-11-06 07:57:38
字体:
来源:转载
供稿:网友

Description   在一个地图上有N个地窖(N<=20),每个地窖中埋有一定数量的地雷。同时,给出地窖之间的连接路径。   例如: 这里写图片描述

Input

这里写图片描述

Output

K1 K2,……,KV (挖地雷的顺序) MAX (挖地雷的数量)

Sample Input

这里写图片描述

5 10 8 4 7 6 1 1 1 0 0 0 0 1 1 1 Sample Output

1 3 4 5 27

说明 这题主要是在输出挖地雷的顺序要再开一个数组!

var i,j,n,m:longint; a,b,c:array[0..20]of longint; f:array[0..20,0..20]of boolean;begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do for j:=i+1 to n do begin read(m); if m=1 then f[i,j]:=true; end; for i:=n downto 1 do begin for j:=i+1 to n do if (f[i,j]) and (b[i]<b[j]) then begin b[i]:=b[j]; c[i]:=j; end; inc(b[i],a[i]); end; m:=1; for i:=2 to n do if b[i]>b[m] then m:=i; i:=m; while i>0 do begin write(i,' '); i:=c[i]; end; writeln; write(b[m]);end.
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表