Cod sursa(job #157787)

Utilizator robert_dDragan Robert robert_d Data 13 martie 2008 11:43:28
Problema Xor Max Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
program xormax;
var a:array[0..1,1..1000]of longint;
    i,j,poz,n,max,start,stop,x:longint;
    f:text;

begin
assign(f,'xormax.in'); reset(f);
readln(f,n);

max:=0;
for i:=1 to n do begin
    read(f,x);
    poz:=i mod 2;
    for j:=1 to i do begin
                     a[poz,j]:=a[1-poz,j] xor x;
                     if a[poz,j]>max then begin
                                          max:=a[poz,j];
                                          start := j;
                                          stop := i;
                                          end;
                     end;
end;
close(f);
assign(f,'xormax.out'); rewrite(f);
writeln(f,max,' ',start,' ',stop);
close(f);
end.