SSL2059 新校园

Description

建一所学校有许多的子工程，我们把这些子工程编号为1、2、……、N，一些子工程必须在某些子工程完成之后才能施工。首先，我们需要计算完成这所学校的建设整个工程最少的完成时间；同时，我们必须知道哪些子工程的延期会影响整个工程的延期。 
（1）根据预算，每一个子工程都有一个完成时间； 
（2）子工程之间的依赖关系是：部分子工程必须在一些子工程完成之后才开工。 
（3）只要满足子工程之间的依赖关系，在任何时刻可以有任何多个子工程同时在施工，也即同时施工的子工程个数不受限制。 

Sample Input

5
5 4 12 7 2
0 0 0 0
0 0 0 0
0 0 0 0
1 1 0 0
1 1 1 1

Sample Output

14
1 3 4 5

先处理入度为0的工程i，找到所有需要工程i先完成的工程j，更新mi[j]数组（j最长子工程完成的时间），并用p记录最长的子工程k，输出最长的时间，从最晚完成的工程反向沿p输出。

var
  f,p:array[0..300,0..300] of longint;
  e,t,a,mi,h:array[0..300] of longint;
  w:array[0..300] of boolean;
  n,max,r:longint;
procedure ss;
var
  l,i,j,k:longint;
begin
  k:=n;
  l:=1;r:=0;
  for i:=1 to n do
    if t[i]=0 then
      begin inc(r);h[r]:=i;end;
  while l<=r do
    begin
      if t[h[l]]=0 then
        begin
          dec(k);
          e[h[l]]:=mi[h[l]]+a[h[l]];
          if e[h[l]]>max then
            begin
              max:=e[h[l]];
              for i:=1 to p[0,0] do
                p[0,i]:=0;
              p[0,0]:=1;
              p[0,1]:=h[l];
            end
          else
          if e[h[l]]=max then
            begin
              inc(p[0,0]);
              p[0,p[0,0]]:=h[l];
            end;
          for j:=1 to n do
            if (f[j,h[l]]=1)and(h[l]<>j) then
              begin
                if e[h[l]]>mi[j] then
                  begin
                    mi[j]:=e[h[l]];
                    for i:=1 to p[j,0] do
                      p[j,i]:=0;
                    p[j,0]:=1;
                    p[j,1]:=h[l];
                  end
                else
                  if e[h[l]]=mi[j] then
                    begin
                      inc(p[j,0]);
                      p[j,p[j,0]]:=h[l];
                    end;
                dec(t[j]);
                if t[j]=0 then
                  begin inc(r);h[r]:=j;end;
              end;
        end;
      inc(l);
    end;
end;
procedure dg(x:longint);
var
  i:longint;
begin
  w[x]:=true;
  for i:=1 to p[x,0] do
    dg(p[x,i]);
end;
var
  i,j:longint;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    begin
      for j:=1 to n do
        if i<>j then
          begin
            read(f[i,j]);
            if f[i,j]=1 then
              inc(t[i]);
          end;
      readln;
    end;
  max:=-maxlongint;
  ss;
  if r<>n then
    begin writeln(-1);exit;end;
  dg(0);
  writeln(max);
  for i:=1 to n do
    if w[i] then write(i,' ');
  writeln;
end.