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

Question

Информатика

Маняша

12 ноября, 02:37

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

+4

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