Задание

Из предложенных команд составьте алгоритм вычисления суммы элементов массива:

program CalculateSum;

var

A: array[1..30] of Integer;

s, i: Integer;

begin

for i := 1 to 30 do begin

write('Введите число: ');

readln(A[i]);

end;

s := 0;

for i := 1 to 30 do begin

s := s + A[i];

end;

writeln(s);

end.