挖地雷

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.