Pagini recente » Cod sursa (job #2878102) | Cod sursa (job #2698231) | Cod sursa (job #1442254) | Cod sursa (job #21916) | Cod sursa (job #583310)
Cod sursa(job #583310)
var a:array[1..100000] of longint;
n,i,j,min,best,sum,x,y:longint;
f,g:text;
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]);
sum:=0;
for i:=2 to n do
a[i]:=a[i-1] xor a[i];
for i:=1 to n do
writeln(a[i]);
readln;
for i:=2 to n do
for j:=1 to i-1 do
begin
if sum<a[j] xor a[i] then
begin
sum:=a[j] xor a[i];
x:=j+1;
y:=i;
end;
end;
writeln(g,sum,' ',x,' ',y);
close(g);
end.