NK05MNIM - Bốc sỏi
Tác giả: ll931110
Ngôn ngữ: Pascal
{$MODE DELPHI}
Program NK05MNIM;
Const
input = '';
output = '';
Var
fi,fo: text;
t,i: integer;
Procedure openfile;
Begin
Assign(fi, input);
Reset(fi);
Assign(fo, output);
Rewrite(fo);
End;
Procedure solve;
Var
n,i,k,res: integer;
win1,win2,c1,c2,fin: boolean;
Begin
res:= 0;
win1:= true;
c1:= false;
c2:= false;
Readln(fi, n);
For i:= 1 to n do
Begin
Read(fi, k);
If k = 1 then
Begin
c1:= true;
win1:= not win1;
End else c2:= true;
res:= res xor k;
End;
If not c2 then fin:= win1
else if not c1 then fin:= not (res = 0)
else
fin:= not (res = 0);
If fin then writeln(fo, 1) else writeln(fo, -1);
End;
Procedure closefile;
Begin
Close(fo);
Close(fi);
End;
Begin
openfile;
Readln(fi, t);
For i:= 1 to t do solve;
closefile;
End.