Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля, но меньших единицы - Pascal ABC

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

Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля,но меньше единицы

Решение задачи: «Для каждого столбца матрицы найти среднее арифметическое элементов больших нуля, но меньших единицы»

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

  for j:=1 to n do begin
    s:=0; c:=0;
    for i:=1 to m do
      if (a[i,j]>0) and (a[i,j]<1) then begin
        s:=s+a[i,j];
        c:=c+1;
      end;
    write(j,': ');
    if c>0 then begin
      s:=s/c;
      writeln(s);
    end else writeln('В этом столбце нет таких элементов');
  end;

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

В данном коде происходит обработка каждого столбца матрицы. Для каждого столбца выполняется следующая последовательность действий:

Инициализируются две переменные: s (сумма) и c (количество). Переменная s будет использоваться для хранения суммы элементов, а переменная c - для подсчета количества элементов, удовлетворяющих условию.
Запускается цикл for i:=1 to m do, который проходит по всем элементам матрицы.
Внутри цикла проверяется условие (a[i,j]>0) and (a[i,j]<1). Если это условие выполняется, то элемент a[i,j] добавляется к переменной s, а переменная c увеличивается на 1.
После завершения внутреннего цикла выводится значение переменной j.
Если переменная c больше 0, то вычисляется среднее арифметическое значение переменной s и выводится на экран.
Если переменная c равна 0, то выводится сообщение В этом столбце нет таких элементов.
Код завершается после обработки всех столбцов матрицы.