Дан массив из n элементов, найти произведение всех элементов массива (n) решить на паскале

Question

Информатика

Памфилий

6 марта, 08:36

Дан массив из n элементов, найти произведение всех элементов массива (n) решить на паскале

+4

Ответы (1)

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

Федуня · Answer 1

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

i, n, p:integer;

begin

p:=1;

writeln ('введите N - ') ;

readln (n) ;

for i:=1 to n do

begin

readln (a[i]) ;

p:=p*a[i];

end;

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

end.