Question

Заполнить массив из 25 элементов от -113 до 27. Посчитать сумму и элементы массива.

Answer 1

Var A: array [1..25] of integer;
var i, S: integer;
begin
S:=0;
for i:=1 to 25 do
begin
A[i]:=random(141) - 113;
S:=S+A[i];
end;
writeln ('Summa S = ', S);
end.
Что значит "посчитать элементы", я не понял. Мы заранее знаем, что их 25.