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

Задача

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

Решение

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

Вводятся "пустые" переменные, значения которых в цикле 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.

Тема

Одномерные массивы

Уровень

Простые задачи

Последняя редакция

Добавить комментарий