type rec=record
	nr,t:longint;
   v:array[1..100] of longint;
   end;

var 	a:array[0..999] of boolean;
		b:array[0..999] of rec;
		m,c,tim,n,i,j:longint;
		f,g:text;
begin
assign(f,'aprindere.in');
assign(g,'aprindere.out');
reset(f);
rewrite(g);
read(f,n,m);
for i:=0 to n-1 do begin
	read(f,c);
   if c=0 then a[i]:=false
   else 			a[i]:=true;
   end;
for i:=1 to m do begin
	read(f,c);
   read(f,b[c].t);
   read(f,b[c].nr);
   for j:=1 to b[c].nr do
   	read(f,b[c].v[j]);
	end;
for i:=0 to n do
	if a[i]=false then begin
   	inc(tim,b[i].t);
      for j:=1 to b[i].nr do
      	a[b[i].v[j]]:=not a[b[i].v[j]];
      end;
writeln(g,tim);
close(f);
close(g);
end.