Найти произведение всех элементов массива из 5 элементов, заполненного с клавиатуры.

Program proisved;

const n=5; {объявляем константу, количество элементов в массиве}

Var a: array[1 ... 100] of integer; {объявляем массив}

i, n, p: integer; {объявляем переменные}

Begin

p:=1; {Задаем первоначальное значение произведения}

For i:=1 to n do

begin

write ('введите число'); readln (a[i]); {Вводим значения с клавиатуры}

p:=p*a[i]; {находим произведение элементов массива}

end;

writeln ('произведение элементов равно: ', p);

end.