var n,m,i,c,nrc,j,k,tc:longint;
    v1,t:array [0..1000] of integer;
    v2:array [0..1000,0..1000] of integer;
begin
 assign(input,'aprindere.in'); reset(input);
 assign(output,'aprindere.out'); rewrite(output);
  readln(n,m);
  for i:=0 to n-1 do read(v1[i]);
  for i:=1 to m do begin
   read(c); read(t[c]); read(nrc); k:=0;
   for j:=1 to nrc do begin inc(k); read(v2[c,k]); end;
   v2[c,0]:=k;
  end;
  for i:=0 to n do
   if v1[i]=0 then begin
    tc:=tc+t[i];
    for j:=1 to v2[i,0] do v1[v2[i,j]]:=1-v1[v2[i,j]];
   end;
  writeln(tc);
 close(input); close(output);
end.