var a:array[1..15000] of 0..1000;v:array[1..15000] of longint;cod:0..1;n,x,y,j:0..15000;m,s,i,r:longint;f,t:text;
begin
assign(f,'datorii.out');rewrite(f);assign(t,'datorii.in');reset(t);readln(t,n,m);
for i:=1 to n do begin read(t,a[i]);for j:=i-(i xor (i and (i-1)))+1 to i do v[i]:=v[i]+a[j];end;
readln(t);
for i:=1 to m do
begin read(t,cod);case cod of
0:begin readln(t,x,y);while x<=n do begin v[x]:=v[x]-y;x:=x+(x xor (x and (x-1)));end;end;
1:begin readln(t,x,y);s:=0;while y>0 do begin s:=s+v[y];y:=y-(y xor (y and (y-1)));end;x:=x-1;r:=0;while x>0 do begin r:=r+v[x];x:=x-(x xor (x and (x-1)));end;writeln(f,s-r);end;
end;end;close(t);close(f);end.