Дан целых чисел массив. Все его элементы уменьшить на 20. А затем определить сумму всех элементов массива. const n = 10; var i, sum: integer; T: array [1..n] of integer; begin for i := 1 to n do read(T[i]); sum := 0; for i := 1 to n do begin T[i] := T[i] - 20; sum := sum + T[i]; end; write(sum) end.
Задание

Дан целых чисел массив. Все его элементы уменьшить на 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.