Cod sursa(job #124936)

Utilizator free2infiltrateNezbeda Harald free2infiltrate 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.