Составьте программу вычисления в массиве произведения положительных элементов - Free Pascal

Формулировка задачи:

4. Составьте программу вычисления в массиве произведения положительных элементов. Помогите пожалуйста

Решение задачи: «Составьте программу вычисления в массиве произведения положительных элементов»

Листинг программы

program pr;
 
var
  i, n, p: integer;
  a: array [1..100] of integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  p := 1;
  for i := 1 to n do
  begin
    a[i] := -10+random(21);           // диапазон заполнения ставь любой (здесь от -10 до 10)
    write(a[i]:3);
    if (a[i]  > 0) then
      p := p * a[i];
  end;
  writeln;
  writeln('Произведение  положительных  элементов массива: ', p);
end.

Объяснение кода листинга программы

В этом коде программа запрашивает у пользователя размер массива, затем заполняет его случайными целыми числами от -10 до 10. Далее происходит перебор всех элементов массива и если элемент больше нуля, то он умножается на переменную p (произведение). В конце выводится произведение всех положительных элементов массива.