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

Question

Информатика

Вукол

23 апреля, 12:18

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

+5

Ответы (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