var n: integer;
    m: longint;
    A: array[1..1500] of integer;
    f, f2: text;
    i, b, c, d, s: integer;
begin
     assign(f, 'DATORII.IN');
     reset(f);
     readln(f, n, m);
     for i := 1 to n do
         read(f, A[i]);
     readln(f);
     assign(f2, 'DATORII.OUT');
     rewrite(f2);
     while not eof(f) do
     begin
          readln(f, b, c, d);
          if b = 0 then A[c] := A[c] - d
          else
          begin
               s := 0;
               for i := c to d do
                   s := s + A[i];
               writeln(f2, s)
          end
     end;
     close(f);
     close(f2)
end.