program aprindere;
type intrerupator=record
        t:integer;
        nrc:integer;
        c:array[1..1001] of integer;
end;
var f,g:text;
        st:array[1..1001] of byte;
        v:array[1..1001] of intrerupator;
        ok:array[1..1001] of boolean;
        n,m:longint;


procedure iofile;
var i,j,x:longint;
begin
        assign(f,'aprindere.in');
        reset(f);
        assign(g,'aprindere.out');
        rewrite(g);
        readln(f,n,m);
        fillchar(ok,sizeof(ok),false);
        for i:=1 to n do
                read(f,st[i]);
        for i:=1 to m do
                begin
                        read(f,x);
                        inc(x);
                        ok[x]:=true;
                        read(f,v[x].t);
                        read(f,v[x].nrc);
                        for j:=1 to v[x].nrc do
                            read(f,v[x].c[j]);
                        readln(f);
                end;
        close(f);
end;




procedure prel;
var sumt,i,j:longint;
begin
        sumt:=0;
     for i:=1 to n do
        if ok[i] then
                if st[i]=0 then
                        begin
                                sumt:=sumt+v[i].t;
                                for j:=1 to v[i].nrc do
                                        st[v[i].c[j]+1]:=1-st[v[i].c[j]+1];
                        end;
     writeln(g,sumt);
     close(g);
end;

begin
        iofile;
        prel;
end.