Cod sursa(job #43268)

Utilizator andrewgPestele cel Mare andrewg Data 29 martie 2007 22:42:29
Problema Xor Max Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.83 kb
const maxn = 100001;

var f:text;
    n,i,j,s,max,maxi,maxj:longint;
    a:array[1..maxn]of longint;

procedure readdata;
begin
   assign(f,'xormax.in');
   reset(f);
   readln(f,n);
   for i:=1 to n do
   begin
      read(f,a[i]);
   end;
   close(f);
end;

procedure solve;
begin
   for i:=1 to n do
   begin
      s:=a[i];
      if s>max then
      begin
         max:=s;
         maxi:=i;
         maxj:=i;
      end;
      for j:=i-1 downto 1 do
      begin
         s:=s xor a[j];
         if s>max then
         begin
            max:=s;
            maxi:=j;
            maxj:=i;
         end;
      end;
   end;
end;

procedure writedata;
begin
   assign(f,'xormax.out');
   rewrite(f);
   writeln(f,max,' ',maxi,' ',maxj);
   close(f);
end;

begin
   readdata;
   solve;
   writedata;
end.