Сформировать массив, состоящий из 7 чисел. Вывести на экран произведение всех чисел.

Question

Информатика

Томуся

14 сентября, 10:23

Сформировать массив, состоящий из 7 чисел. Вывести на экран произведение всех чисел.

+2

Ответы (1)

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

Капитон · Answer 1

Const

N = 7;

Var

A:array[1 ... N] of integer;

i:integer;

P:real;

Begin

P:=1;

For i: = 1 to N do

Begin

Read (A[i]) ;

P:=P*A[i]

End;

WriteLn ('P = ', P)

End.