Question

Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный. Составить программу.

Answer 1

program Ok;
const n = 10;
var
A:array[1..n] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
writeln(sum);
end.