Cod sursa(job #42932)

Utilizator ProtomanAndrei Purice Protoman Data 29 martie 2007 17:19:07
Problema Balanta Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 2.12 kb
var a,b,nu,mu:array[1..1050] of integer; i,j,x,ad,n,m,nr1,nr2,r:longint; f1,f2:text;
begin
        assign(f1,'balanta.in');
        reset(f1);
        assign(f2,'balanta.out');
        rewrite(f2);
        read(f1,n,m);
        for i:=1 to n do begin a[i]:=1; b[i]:=1; end;
        for i:=1 to m do begin
                read(f1,x);
                for j:=1 to x do read(f1,mu[j]);
                for j:=1 to x do read(f1,nu[j]);
                read(f1,ad);
                if ad=0 then begin
                        for j:=1 to x do begin
                                a[mu[j]]:=0;
                                b[mu[j]]:=0;
                                a[nu[j]]:=0;
                                b[nu[j]]:=0;
                        end;
                        end;
                if ad=1 then begin
                        for j:=1 to x do begin
                                inc(a[mu[j]]);
                                a[nu[j]]:=0;
                                b[mu[j]]:=0;
                                inc(b[nu[j]]);
                        end;
                        for j:=1 to n do begin
                                dec(a[j]);
                                dec(b[j]);
                        end;
                        end;
                if ad=2 then begin
                        for j:=1 to x do begin
                                inc(a[nu[j]]);
                                a[mu[j]]:=0;
                                b[nu[j]]:=0;
                                inc(b[mu[j]]);
                        end;
                        for j:=1 to n do begin
                                dec(a[j]);
                                dec(b[j]);
                        end;
                        end;
        end;
        for i:=1 to n do begin
                if a[i]>0 then begin inc(nr1); r:=i; end;
                if b[i]>0 then begin inc(nr2); r:=i; end;
        end;
        if ((nr1=1)and(nr2=0))or((nr1=0)and(nr2=1)) then writeln(f2,r)
                                                    else writeln(f2,0);
        close(f1);
        close(f2);
end.