Cod sursa(job #583307)

Utilizator AreinIon Guzun Arein Data 19 aprilie 2011 16:46:16
Problema Xor Max Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.76 kb
var  a : array[1..100100] of longint;
     n,  n1, n2, smem, p1mem,p2mem : int64;
     i,i2,j : longint;
     t : text;



begin
  p2mem:=100;
  assign(t,'xormax.in');
  reset(t);
  Readln(t,n);

  for i:=1 to n do
  begin
  read(t,a[i]);
  end;



for i:=1 to n do
for j:=i+1 to n do
begin


n1:=a[i];
for i2:=i+1 to j  do
begin
n1:=a[i2] xor n1;
end;
if n1>smem then
begin
smem:=n1;
p2mem:=j;
p1mem:=i;
end
else if n1=smem then
begin

if j<p2mem then
begin
p2mem:=j;
p1mem:=i;
end
else
if  j=p2mem then
begin
if (j-i)<(p2mem-p1mem) then
begin
p2mem:=j;
p1mem:=i;
end;

end;


end;
end;
close(t);
assign(t,'xormax.out');
rewrite(t);

write(t,smem,' ');
write(t,p1mem,' ');
write(t,p2mem);

close(t);


end.