Вычисление суммы и произведения элементов массива

Дан массив X, состоящий из n элементов. Найти сумму (произведение) элементов этого массива. Процесс накапливания суммы элементов массива: переменной S присваивается значение равное нулю, затем последовательно суммируются элементы массива X. Блок-схема алгоритма расчета суммы приведена на рис. 5..

Решение задачи вычисления произведения сводится к тому, что значение переменной Р, в которую предварительно была записана единица, последовательно умножается на

значение i–го элемента массива. Блок-схема алгоритма приведена на рис.6.

Рис.5. Алгоритм вычисления Рис. 6. Вычисление произведения

суммы элементов массива элементов массива

s: = 0; p: =1;

for i:=1 to n do

begin

s = s + x[i];

p = p * x[i];

end;