Cod sursa(job #583310)
| Utilizator | Data | 19 aprilie 2011 16:58:26 | |
|---|---|---|---|
| Problema | Xor Max | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.58 kb |
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.
