NK05MNIM - Bốc sỏi

Tác giả: khuc_tuan

Ngôn ngữ: Pascal

var
 st, i, j, n, x, res : integer;
 k1 : boolean;
begin
    read(st);
    for i:=1 to st do begin
        read(n);
        k1 := false;
        res := 0;
        for j:=1 to n do begin
            read(x);
            if x<>1 then k1 := true;
            res := res xor x;
        end;
        if not k1 then begin
            if n mod 2=0 then writeln(1)
            else writeln(-1);
        end
        else begin
            if res=0 then writeln(-1)
            else writeln(1);
        end;
    end;
end.

Download