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

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

В массиве Х(N) найти произведение ненулевых элементов, а также количество элементов, превышающих значение среднего арифметического элементов массива

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

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

const n=5;
var i,k,pr:integer;
x:array[1..n] of integer;
sr:real;
begin
pr:=1;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<>0 then pr:=pr*a[i];
sr:=sr+a[i];
end;
writeln('pr=',pr);
sr:=sr/n;
for i:=1 to n do
if a[i]>sr then k:=k+1;
write('k=',k);
readln
end.

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

Переменная n инициализируется значением 5.
Создаются переменные i, k и pr типа integer и инициализируются значением 1.
Создается переменная x типа array[1..n] of integer.
Создается переменная sr типа real.
В цикле for с i от 1 до n происходит следующее:
- Чтение значения элемента массива a[i] и сохранение его в переменной a[i].
- Если значение a[i] не равно нулю, то умножаем pr на a[i] и обновляем значение pr.
- Суммируем значение a[i] с переменной sr.
Выводится значение переменной pr.
Вычисляем среднее значение sr и сохраняем его в переменной sr.
В цикле for с i от 1 до n происходит следующее:
- Если значение a[i] больше значения sr, то увеличиваем значение переменной k на 1.
Выводится значение переменной k.
Программа завершается и выводится сообщение Readln.