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