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

Question

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

Comments

Вводить массив с клавиатуры или программно?

---

да, в паскале

---

Ещё раз: как должен заполняться массив? Его нужно вводить с клавиатуры или с помощью функции random ?

---

с клавиатуры

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.