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