Написать программу, которая находит произведение элементов массива. Размерность массива 10 элементов. Ввод элементов осуществлять с клавиатуры.

Question

Информатика

Анастасея

26 мая, 02:13

Написать программу, которая находит произведение элементов массива. Размерность массива 10 элементов. Ввод элементов осуществлять с клавиатуры.

+4

Ответы (1)

Знаете ответ?

Гея · Answer 1

Const n=10;

var a:array[1 ... n] of integer;

i:integer; p:real;

begin

for i:=1 to n do read (a[i]) ;

p:=1;

for i:=1 to n do p:=p*a[i];

writeln ('p = ', p) ;

end.

Пример:

4 6 2 3 8 1 4 7 9 1

p = 290304