program datorii;
var v:array[1..15000] of integer;
	i,j,m,a,b,s : longint;
	n:integer;
	t:byte;
	F,G:text;

BEGIN
assign(F,'datorii.in'); reset(F);
assign(G,'datorii.out');rewrite(G);

readln(F,n,m);
for i:=1 to n do
	read(F,v[i]);
for i:=1 to m do
	begin
	readln(F,t,a,b);
	case t of 
	  0:v[a]:=v[a]-b; 
	  1:begin
	    s:=0;
	    for j:=a to b do
	  	    s:=s+v[j];	
		writeln(G,s); 
	    end;
	  end;
	end;

close(F);
close(G);
END.