program aprindere;
var f,g:text;
    v,x:array[0..1000]of longint;
    n,m,i,ok,nr,j,s,t,c:longint;
begin
assign(f,'aprindere.in');
assign(g,'aprindere.out');
reset(f);
rewrite(g);
read(f,n,m);
dec(n);
for i:=0 to n do read(f,v[i]);
for i:=1 to m do
  begin
    read(f,c,t,nr);
    ok:=0;
    if (v[c]=0)then ok:=1;
    for j:=1 to nr do
      begin
        read(f,x[j]);
        if (v[x[j]]=0)then ok:=1;
      end;
    if (ok=1)then
      begin
        if (v[c]=0)then inc(v[c]) else dec(v[c]);
        for j:=1 to nr do
          if (v[x[j]]=0)then inc(v[x[j]])else dec(v[x[j]]);
        inc(s,t);
      end;
  end;
write(g,s);
close(f);
close(g);
end.