Cod sursa(job #126458)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 22 ianuarie 2008 11:37:52
Problema Xor Max Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 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];
 for i:=2 to n do
  for j:=1 to i-1 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.