var v:array[1..20000]of longint;
    n,i,j,k,l,m,a,b,c,s1,s2:longint;
    f1,f2:text;
begin
   assign(f1,'datorii.in');
   assign(f2,'datorii.out');
   reset(f1);
   rewrite(f2);
   readln(f1,n,m);
   for i:=1 to n do
   begin
   read(f1,k);
   l:=i;
   while l<=n do
   begin
   v[l]:=v[l]+k;
   l:=(l or(l-1))+1;
   end;
   end;
   for i:=1 to m do
   begin
   read(f1,a,b,c);
   if a=0 then begin while b<=n do
                     begin
                     v[b]:=v[b]-c;
                     b:=(b or(b-1))+1;
                     end;
               end
          else begin s1:=0;
                     s2:=0;
                     b:=b-1;
                     while b>0 do
                     begin
                     s1:=s1+v[b];
                     b:=b and(b-1);
                     end;
                     while c>0 do
                     begin
                     s2:=s2+v[c];
                     c:=c and(c-1);
                     end;
                     writeln(f2,s2-s1);
               end;
   end;
   close(f1);
   close(f2);
end.