program datorii_007;
var a:array[1..20000] of longint;
	n,m:longint;

	procedure put(i,x:longint);
	begin
		while i<=n do begin
			inc(a[i],x);
			i:=(i or (i-1)) +1;
		end;
	end;
	
	function sum(i:word):longint;
	var s:longint;
	begin
		while i>0 do begin
			s:=s+a[i];
			i:=i and (i-1);
		end;
		sum:=s;
	end;
	
	procedure main;
	var fin,fout:text; 
		i,j,x,st,fin,s1,s2:longint;
	begin
		assign(fin,'datorii.in'); reset(f);
		assign(fout,'datorii.out'); rewrite(f);
		readln(f,n,m);
		for i:=1 to n do begin
			read(f,x); put(i,x);
		end;
		for i:=1 to m do begin
		`	read(fin,cod);
			if cod=0 then begin
				read(fin,j,x);
				put(j,-x);
			end
			else begin
				read(fin,st,fin);
				s1:=sum(st-1); s2:=sum(fin);
				writeln(fout,s2-s1);
			end;
		end;
		close(fin); close(fout);
	end;
	
BEGIN
	main;
END.