Дан массив из N элементов. Написать программу, подсчитывающую произведение элементов массива

Question

Информатика

Корнейка

5 ноября, 03:50

Дан массив из N элементов. Написать программу, подсчитывающую произведение элементов массива

+1

Ответы (1)

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

Зинаша · Answer 1

Var

a:array [1 ... 10] of integer;

i, n, p:integer;

begin

writeln ('vvedite n') ;

readln (n) ;

p:=1;

writeln ('vvedite massiv') ;

for i:=1 to n do

begin

readln (a[i]) ;

p:=p*a[i];

end;

writeln ('proizvedenie elementov massiva = ', p) ;

end.