type intr=record
cam:array[1..100] of integer;
state,nr,t:integer;
end;
var a:array[0..1000] of intr;
n,m,k,tt,j,i:integer;
f,g:text;
procedure inv(var l:integer);
begin
if l=0 then l:=1
else if l=1 then l:=0;
end;
begin
assign(f,'aprindere.in');
assign(g,'aprindere.out');
reset(f);
rewrite(g);
read(f,n,m);
for i:=0 to n-1 do read(f,a[i].state);
for i:=1 to m do begin
read(f,j);
read(f,a[j].t,a[j].nr);
for k:=1 to a[j].nr do read(f,a[j].cam[k]);
end;
for i:=0 to n-1 do
if (a[i].state=0) and (a[i].nr<>0) then begin
tt:=a[i].t+tt;
for j:=1 to a[i].nr do inv(a[a[i].cam[j]].state);
end;
writeln(g,tt);
close(g);
close(f);
end.