Дан массив из n элементов. найти произведение всех элементов массива

Question

Информатика

Кита

5 января, 03:23

Дан массив из n элементов. найти произведение всех элементов массива

+4

Ответы (1)

Знаете ответ на вопрос?

Денисья · Answer 1

Var a: array [1 ... 99] of integer;

i, p, n: integer;

begin

p:=1;

readln (n) ;

for i:=1 to n do

begin

readln (a[i]) ;

p:=p*a[i];

end;

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

end.