Дан массив из N элементов. Найти сумму всех элементов массива.

В разделе var описываем одномерный массив MAS, который имеет размерность N.

Элементы массива описываем как вещественные числа. С помощью оператора ввода read вводим значение N, далее считываем элементы массива. Переменная S - это переменная, в которой будет накапливаться сумма элементов массива. Сначала задаем ей значение 0. Далее организуем цикл с параметром for и выводим значение S на экран.

var

MAS: array[1 ... N] of real;

N: integer;

S: real;

k: integer;

begin

write ('N=:');

read (N);

write ('Укажите значения элементов массива: ');

for i : = 1 to N do

read (MAS[k]);

S: = 0;

for k : = 1 to N do

S: = S + MAS[k];

Write ('Сумма элементов массива равна: ', S);

end.