Необходимо найти среднее арифметическое положительных элементов - Pascal

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

Составить в Паскале программу "Найти среднее арифметическое положительных элементов".

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

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

const
  nMax = 10;//Длина массива
var
  i, n: integer;
  sr:real;
  A: array [1..nMax]of integer;
begin
  writeln('Массив А: ');
  for i := 1 to nMax do
  begin
    A[i] := 10 - random(21);//значения в диапазоне -10;10
    write(A[i], ' ');
  end;
  n:=0;sr:=0;
  for i := 1 to nMax do
    if A[i] > 0 then 
    begin
      inc(n);
      sr := sr + A[i];
    end;
  writeln;
  writeln('Среднее арифметическое положительных элементов массива А: =',sr/n:5:2);  
end.

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

В данном коде объявлены следующие переменные:

nMax: максимальное значение индекса элемента массива A, равное 10.
i: переменная для итерации по элементам массива A.
n: счетчик количества положительных элементов.
sr: переменная для хранения суммы положительных элементов.
A: массив, содержащий целочисленные значения. В начале кода выводится сообщение с описанием массива A. Затем происходит итерация по всем элементам массива с помощью цикла for. Внутри цикла каждый элемент массива A присваивается переменной A[i] и выводится на экран через функцию write. Далее идет проверка условия if. Если значение A[i] больше нуля, то увеличивается счетчик n и переменная sr присваивает сумму A[i] из предыдущего цикла. После завершения цикла выводится сообщение с результатом - средним арифметическим положительных элементов массива A.