Задание

Дан целых чисел массив. Все его элементы уменьшить на 20. А затем определить сумму всех элементов массива.

  • const n = 10;
  • var
    i, sum: integer;
  • T: array
    \[1\.\.n\]
    of integer;
  • begin
    for i := 1 to n do
  • read\(T⟨1⟩\);
  • sum := 0;
    for i := 1 to n do
  • begin
    T
    \[i\]
    := T
    \[i\]
    - 20;
  • sum := sum + T
    \[i\]
    ;
    end;
  • write\(sum\)
  • end.