Cod sursa(job #7423)

Utilizator CezarMocanCezar Mocan CezarMocan Data 21 ianuarie 2007 15:29:26
Problema Elimin Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
var v,c:array[0..1000]of integer;
    ma:array[0..1000,0..1000]of integer;
    i,j,nr,n,m,s:longint;
begin
assign(input,'aprindere.in');reset(input);
assign(output,'aprindere.out');rewrite(output);
readln(n,m);
for i:=0 to n-1 do
        read(v[i]);
for i:=1 to m do
        begin
        read(nr,c[nr],ma[nr,0]);
        for j:=1 to ma[nr,0] do
                read(ma[nr,j]);
        end;
for i:=0 to n-1 do
        begin
        if v[i]=0 then
                begin
                s:=s+c[i];
                for j:=1 to ma[i,0] do
                        v[ma[i,j]]:=1-v[ma[i,j]];
                end;
        end;
writeln(s);
close(input);close(output);
end.