Составить программу как найти произведение элементов массива. массив состоит из 7 элементов

Question

Информатика

Милена

17 октября, 00:23

Составить программу как найти произведение элементов массива. массив состоит из 7 элементов

+1

Ответы (1)

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

Светуша · Answer 1

Var a:array [1 ... 7] of integer; i, p:integer;

begin

a:=1;

for i:=1 to 7 do

begin

readln (a) ; p:=p*a;

end;

writeln ('Произведение = ', p) ;

readln;

end.