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

Question

Информатика

Маняша

23 августа, 18:19

Сформировать массив, состоящий из 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.