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

function suma(a,b:integer):longint;inline;
var s:longint;
	i:integer;
  begin
	    s:=0;
	    for i:=a to b do
	  	    s:=s+v[i]; 
  suma:=s;
  end;
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:writeln(G,suma(a,b));
	  end;
	end;

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