Cod sursa(job #124936)
Utilizator | Data | 20 ianuarie 2008 10:25:07 | |
---|---|---|---|
Problema | Xerox | Scor | 0 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 3, Clasele 11-12 | Marime | 0.38 kb |
program xerox;
var T,N,M,S,i,j,k : integer;
f,fo : text;
begin
assign(f,'xerox.in');
reset(f);
readln(f,T);
assign(fo,'xerox.out');
rewrite(fo);
for k := 1 to T do begin
readln(f,N);
S := 0;
for i := 1 to N do begin
readln(f,j);
S := S+j;
end;
if S mod 2 = 0 then writeln(fo,0)
else writeln(fo,1);
end;
close(f);
close(fo);
end.