Задание

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