Нахождение произведения элементов массива a[n].Помогите составить программу

Question

Нахождение произведения элементов массива a[n].
Помогите составить программу

---

Comments

Так программа ведь уже написана, сами прикрепили:)

---

просто при проверки программы, выдает ошибку

Answer 1

const n=5;

var a:array [1..n] of integer; i,p:integer;

 

begin

p:=1; 

for i:=1 to n do 

  begin

  a[i]:=random(10); 

  write(a[i]:2);

  p:=p*a[i];

  end;

writeln;

writeln('Произведение элементов массива: ',p);

end.

Comments

Спрашивай, если какой-то момент в программе непонятен:)

---

спасибо :3