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

Question

Информатика

Вероня

21 августа, 04:25

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

+3

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