type intrerupator = record
        c,tc,nrc : integer;
        cam : array[0..1000] of integer;
        end;
var intrerup : array[1..1000] of intrerupator;
    lumina : array[0..1000] of integer;
    n,m,i,j,k : integer;
    timp : longint;
    f,g : text;
begin
assign(f,'aprindere.in'); reset(f);
assign(g,'aprindere.out'); rewrite(g);
read(f,n,m);
for i:=0 to n-1 do begin
        read(f,lumina[i]);
        if lumina[i]=0 then lumina[i]:=-1;
        end;
for j:=1 to m do begin
         read(f,intrerup[j].c,intrerup[j].tc,intrerup[j].nrc);
         for k:=1 to intrerup[j].nrc do read(f,intrerup[j].cam[k]);
         end;

for j:=1 to m do
begin
        if lumina[intrerup[j].c]=-1 then
        begin
              timp:=timp+intrerup[j].tc;
                      for k:=1 to intrerup[j].nrc do
                      lumina[intrerup[j].cam[k]]:=-lumina[intrerup[j].cam[k]];
        end;
end;

writeln(g,timp);
close(g);
end.