Cod sursa(job #33716)

Utilizator petrePajarcu Alexandru-Petrisor petre Data 19 martie 2007 18:49:38
Problema Xor Max Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
var f,g:text;
a:array[1..100000] of longint;
n,i,j,x,y,max,m:longint;
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]);
for i:=1 to n do
        begin
m:=a[i];
for j:=i+1 to  n do
begin
        if m xor a[j]>max then
                begin
                max:=m xor a[j];
                x:=i;
                y:=j;
                end;
m:=m xor a[j];
end;
end;
writeln(g,max,' ',x,' ',y);
close(F);
close(G);
end.