Сумма и произведение элементов одномерного массива | Язык Паскаль

Сумма и произведение элементов одномерного массива

Найти сумму и произведение элементов одномерного числового массива.

Задачи данного типа в теме "Массивы" относятся к простым и сводятся к поэлементному перебору массива и выполнению соответствующих алгебраических операций (в данном случае сложения и умножения).

Вводятся "пустые" переменные, значения которых в цикле for перезаписываются. Сумма элементов массива находится путем прибавления элемента к прежнему значению переменной. Произведение – умножением прежнего значения переменной на очередной элемент.

Первым значением переменной для суммы должен быть ноль, для произведения – единица (иначе умножение на ноль даст в результате ноль).

В примере ниже отводится память под массив, максимальное количество элементов которого равно 100. Однако пользователь сам задает количество элементов массива (до 100). Это значение присваивается переменной n.

Пользователь сам заполняет массив значениями (первый цикл for).

Переменные sum и op хранят соответственно значения суммы и произведения элементов массива. В соответствующих циклах их значения постепенно увеличиваются.

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

const
    max = 100;
var
    arr: array[1..max] of real;
    n: integer;
    sum, op: real;
    i: integer;
 
begin
    write('Количество элементов: ');
    readln(n);
 
    write('Укажите значения: ');
    for i := 1 to n do
        read(arr[i]);
 
    sum := 0;
    for i := 1 to n do
        sum := sum + arr[i];
 
    op := 1;
    for i := 1 to n do
        op := op * arr[i];
 
    writeln('Сумма элементов: ', sum:10:2);
    writeln('Произведение элементов: ', op:20:2);
 
end.