Cod sursa(job #152092)

Utilizator Clau2000GOREA CLAUDIU-CRISTIAN Clau2000 Data 9 martie 2008 00:12:52
Problema Xor Max Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.86 kb
var a,b,s,s1,a1,b1:longint;
    vxor:array[0..100000]of longint;
    n,i,x,max,start, stop:longint;
    f,g:text;

begin
     assign(f,'xormax.in');
     assign(g,'xormax.out');
     reset(f);
     rewrite(g);
     read(f,n);
     vxor[0]:=0;
     max:=0;  {(a xor b=c) <=> (a=b xor c) <=> (a xor c=b)}
     start:=1;
     for i:=1 to n do
     begin
          read(f,x);
          vxor[i]:=vxor[i-1] xor x;
          if max<vxor[i] then
          begin
               stop:=i;
               max:=vxor[i];
          end;
     for i:=1 to n-1 do
         for j:=i+1 to n do
             if (vxor[i] xor vxor[j]>max) then
             begin
                  start:=i;
                  stop:=j;
                  max:=vxor[i] xor vxor[j];
             end;
     end;
     write(g,max,' ',start,' ',stop);

     close(f);
     close(g);
end.