program ia7;
var n, m, i, j, x, y, sum:longint;
	code:byte;
	a:array[1..15000] of integer;
	fIn, fOut:text;

begin
assign(fIn, 'datorii.in');
assign(fOut, 'datorii.out');
rewrite(fOut);
reset(fIn);
readln(fIn, n, m);
for i := 1 to n do read(fIn, a[i]);
readln(fIn);

for i := 1 to m do begin
	readln(fIn, code, x, y);
	if code = 1 then begin
		sum := 0;
		for j := x to y do inc(sum, a[j]);
		writeln(fOut, sum);
	end else dec(a[x], y);
end;
close(fIn);
close(fOut);
end.