program datorii;
var A : array [1..15000] of longint;
    i,m,S,i1,i2,j : longint;
    n : integer;
    x : shortint;
    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,A[i]);

for i := 1 to m do begin
readln(f,x,i1,i2);
if x=1 then begin
            S := 0;
            for j := i1 to i2 do
            S := S+A[j];
            writeln(g,S);
            end
else if A[i1]-i2>0 then A[i1] := A[i1]-i2
                   else A[i1] := 0;
end;

close(f);
close(g);

end.