{$inline on}

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

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

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