Cod sursa(job #304845)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 15 aprilie 2009 14:33:19
Problema Xor Max Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.58 kb
 var a,b:array[1..100000] of longint;  
     f,g:text;  
     n,i,j,max,poz1,poz2:longint;  
 begin  
  assign(f,'xormax.in'); reset(f);  
  assign(g,'xormax.out'); rewrite(g);  
  read(f,n);  
  read(f,a[1]);  
  b[1]:=a[1];  
  for i:=2 to n do begin  
   read(f,a[i]);  
   b[i]:=b[i-1] xor a[i];  
   end;  
  max:=b[1];  
 poz1:=1;  
  poz2:=1;  
  for i:=2 to n do  
   for j:=1 to i do  
    if max<b[i] xor b[j] then begin  
     max:=b[i] xor b[j];  
    poz1:=j;  
    poz2:=i;  
    end;  
  writeln(g,max,' ',poz1+1,' ',poz2);  
  close(g); close(f);  
  end.