var f:text;
    n,m,i,x,j:integer;
    a:array[0..1000] of integer;
    b:array[0..1000,0..100] of integer;
    t:array[0..1000] of integer;
    sol:longint;

begin
assign(f,'aprindere.in');
reset(f);
readln(f,n,m);
for i:=0 to n-1 do read(f,a[i]);
for i:=1 to m do
   begin
   read(f,x);
   read(f,t[x],b[x,0]);
   for j:=1 to b[x,0] do read(f,b[x,j]);
   end;
close(f);
for i:=0 to n-1 do
   if a[i]=0 then begin
                  sol:=sol+t[i];
                  for j:=1 to b[i,0] do
                     a[b[i,j]]:=abs(a[b[i,j]]-1);
                  end;
assign(f,'aprindere.out');
rewrite(f);
writeln(f,sol);
close(f);
end.