Среднее арифметическое положительных элементов массива - PascalABC.NET

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

В одномерном массиве состоящем из 10 целых чисел (диапазон формируется с помощью random -50 до 50), найти Среднее арифметическое положительных элементов массива;

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

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

const n=10;
 
var x:array [1..n] of integer;
    ave:real;
    i,count,sum:byte;
 
Begin
Sum:=0;
Count:=0;
 
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50;
    Write(X[i]:4);
    
    // Находим сумму и кол-во положительных элементов...
    if X[i] > 0 then
                    Begin
                    Inc(Sum,X[i]);
                    Inc(Count);
                    end;
    end;
Writeln;
 
// Считаем среднее арифметическое...
Ave:=Sum/Count;
Writeln('Ответ: ',Ave:8:5);
end.

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

Объявляются переменные:
- n - количество элементов в массиве (10);
- x - массив (10 элементов);
- ave - переменная для хранения среднего арифметического (тип real);
- i, count, sum - счетчики (тип byte).
Инициализируются счетчики: sum=0, count=0.
Выводится сообщение Исходный массив: и начинается цикл по элементам массива.
Внутри цикла проверяется условие X[i] > 0, если оно истинно, то к сумме прибавляется значение элемента, к счетчику положительных элементов прибавляется единица.
После прохода по всем элементам массива, выводится сообщение и начинается вычисление среднего арифметического (сумма делится на количество положительных элементов).
Результат вычисления (среднее арифметическое) выводится на экран.