program datorii;
type
     vector=array[1..15000] of longint;
var n,m,i,j,k:longint;suma:longint;
    f,g:text;
    datorie:vector;
    s1:0..1;s2,s3:integer;v:longint;
begin
assign(f,'datorii.in');
reset(f);
assign(g,'datorii.out');
rewrite(g);
read(f,n,m);
for i:= 1 to n do
read(f,datorie[i]);

for j:=1 to m do
	begin
	read(f,s1,s2,s3);
	if s1=0 then
   if (datorie[s2]>=s3) then
	 datorie[s2]:=datorie[s2]-s3
   					else datorie[s2]:=0
      else
	  begin
  suma:=0;
  	 for k:= s2 to s3 do
     suma:=suma+datorie[k];
			writeln(g,suma);
  end;
  end;
close(f);
close(g);
end.