Cod sursa(job #575479)

Utilizator ion_calimanUAIC Ion Caliman ion_caliman Data 8 aprilie 2011 12:55:06
Problema Xor Max Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
var     a:array[1..100000] of longint;
        n,i,j,min,best,sum,x,y:longint;
        f,g:text;
begin
  assign(f,'xormax.in');
  assign(g,'xormax.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
    read(f,a[i]);
  sum:=0;
  for i:=2 to n do
    a[i]:=a[i-1] xor a[i];
  {min:=a[1];
  for i:=2 to n do
    begin
      best:=a[i] xor min;
      if best>sum then sum:=best;
      if min>a[i] then min:=a[i];
    end;}
  for i:=2 to n do
  for j:=1 to i-1 do
    begin
      if sum<a[j] xor a[i] then
        begin
          sum:=a[j] xor a[i];
          x:=j+1;;
          y:=i;
        end;
    end;
  writeln(g,sum,' ',x,' ',y);
  close(g);
end.