program ab;
var n,m,i,s,j:integer;
a,b,c,d:array[1..1000] of integer;
fis,fo:text;
begin
Assign(fis, 'datorii.in');
  Reset(fis);

 
read(fis,n);
readln(fis,m);

for i:=1 to n do read(fis,a[i]);
readln;
for i:=1 to m do 
begin
   read(fis,b[i]);
   read(fis,c[i]);
   readln(fis,d[i]);
end;
Close(fis);
Assign(fo, 'datorii.out');
  Rewrite(fo);
for i:=1 to m do 
begin
   if(b[i]=0) then begin
                     a[c[i]] := a[c[i]] - d[i];
                     end 
     else 
         begin
     s:=0;
    for j:=c[i] to d[i] do s:=s+ a[j];
    writeln(fo,s);
          end;
end;

Close(fo);
end.