program secventza;
type vec=array[1..50100] of longint;
var a,b,c:vec;
    f,g:text;
    n,k,i,max1,max2,poz1,poz2,suma:longint;
begin
assign(f,'secv2.in');assign(g,'secv2.out');reset(f);rewrite(g);
readln(f,n,k);
for i:=1 to n do begin read(f,a[i]);b[i]:=a[i];c[i]:=a[i];end;
for i:=2 to n do begin
b[i]:=b[i-1]+b[i];
c[n-i+1]:=c[n-i+1]+c[n-i+2];
end;
max1:=-maxlongint;
max2:=max1;
for i:=1 to n do
if b[i]>max1 then begin max1:=b[i];poz1:=i;end;
for i:=n downto 1 do
if c[i]>max2 then begin max2:=c[i];poz2:=i;end;
if poz1<=poz2 then  begin
for i:=poz1 to poz2 do suma:=suma+a[i];write(g,poz1,' ',poz2,' ',suma);end
               else begin
               for i:=poz2 to poz1 do suma:=suma+a[i];write(g,poz2,' ',poz1,' ',suma);end;
close(f);close(g);end.