Cod sursa(job #152112)

Utilizator Clau2000GOREA CLAUDIU-CRISTIAN Clau2000 Data 9 martie 2008 01:12:07
Problema Xor Max Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.83 kb
var vxor:array[0..100000]of longint;
    n,i,j,max,start, stop,x: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;
     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+1;
                  stop:=j;
                  max:=vxor[i] xor vxor[j];
             end;
     write(g,max,' ',start,' ',stop);

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