Дан массив из 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.