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

Question

Информатика

Натан

29 ноября, 19:05

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

+2

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