program aprindere;
var f,h:text;
    a:array[0..1000]of 0..1;
    b:array[1..100]of 0..1000;
    m,n,i,j,l,c,t,nr:integer;
    s:longint;
begin
 assign(f,'aprinder.in');
 assign(h,'aprindere.out');

 reset(f);
 rewrite(h);

 s:=0;
 readln(f,n,m);
 for i:=0 to n-1 do read(f,a[i]);
 for i:=1 to m do
  begin
   read(f,c,t,nr);
   for j:= 1 to nr do read(f,b[j]);
   if a[c]=0 then
    begin
    s:=s+t;
    for j:= 1 to nr do
     if a[b[j]]=0 then a[b[j]]:=1
                  else a[b[j]]:=0;
    end;
  end;

 writeln(h,s);
 close(f);
 close(h);
end.