Дан массив из N элементов. Написать программу, подсчитывающую произведение элементов массива

Сначала в разделе описания var описываем одномерный массив А, который имеет размерность N.

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

var

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

n: integer;

P: real;

i: integer;

begin

write ('N=:');

read (N);

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

for i : = 1 to N do

read (A[i]);

P: = 1;

for i : = 1 to N do

P: = P * A[i];

Write ('Произведение элементов массива равно: ', P);

end.