Найти произведение ненулевых элементов массива и разделить его на количество элементов массива - Turbo Pascal

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

Задание 1. Найдите произведение ненулевых элементов массива и разделите это произведение на количество элементов массива.

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

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

var
  a:array[1..100] of integer;
  i,j,m,n:integer;
  p:real;
Begin
  m:=1;
  write('Введите размерность массива: ');  readln(n);
  For i:=1 to n do
    begin
      a[i]:=random(n) - n div 2;
      if a[i]<>0 then
        m:=m*a[i];
    end;
  p:=m/n;
  writeln('Результат',p:8:2);
  readln;
end.

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

В начале объявляются переменные:
- a - массив целых чисел размером от 1 до 100.
- i, j, m, n - целочисленные переменные для циклов.
- p - вещественная переменная для хранения результата.
Затем идет инициализация переменной m равной 1.
Далее происходит чтение размера массива n с помощью функции readln().
Затем идет цикл for, который выполняется от 1 до n. В каждой итерации цикла переменная a[i] инициализируется случайным числом в диапазоне от 0 до n с помощью функции random(n). Затем проверяется, что a[i] не равно нулю, иначе переменная m обнуляется. Если a[i] не равно нулю, то переменная m умножается на a[i].
По завершении цикла переменная p вычисляется как результат деления переменной m на n.
Наконец, выводится результат с помощью функции writeln().