Cod sursa(job #46407)

Utilizator marius21Petcu Marius marius21 Data 2 aprilie 2007 17:03:32
Problema Xor Max Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.47 kb
var a:array[0..100000] of dword;
crr,max:dword;
i,j,start,stop,n:longint;
f,g:text;
begin
assign(f,'xormax.in');
assign(g,'xormax.out');
reset(f);
rewrite(g);
read(f,n);
for i:=1 to n do begin
	read(f,crr);
   a[i]:=a[i-1] xor crr;
   end;
for i:=1 to n do
	for j:=i to n do
   	if a[j] xor a[i-1]>max then begin
      	max:=a[j] xor a[i-1];
         start:=i;
         stop:=j;
         end;
writeln(g,max,' ',start,' ',stop);
close(f);
close(g);
end.