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

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

Найти среднее арифметическое положительных элементов каждого столбца матрицы X (10×20) при условии, что в каждом столбце есть хотя бы один положительный элемент.

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

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

const
  n=10;
  m=20;
var
  a: array[1..n,1..m] of integer;
  b: array[1..n] of integer;
  i,j,sum,k: integer;
begin
  randomize;
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    sum:=0; k:=0;
    for j:=1 to m do
      if a[i,j]>0 then
      begin
        inc(k);
        sum:=sum+a[i,j];
      end;
    if k=0 then writeln('В ',i,'-й строке нет положительных элементов.')
      else writeln('В ',i,'-й строке среднее арифметическое = ',sum/k:0:2);
  end;
  readln;
end.

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

Объявлены переменные: n - количество строк в матрице, m - количество столбцов в матрице, a - сама матрица, b - для хранения суммы положительных элементов каждой строки, i, j, sum, k - для работы с циклами.
Задаются случайные значения элементам матрицы a с помощью функции random(199)-99.
Выводятся все элементы матрицы a на экран.
Для каждой строки матрицы a выполняется следующий алгоритм:
- Переменная sum инициализируется нулем.
- Переменная k инициализируется нулем.
- Происходит обход каждого столбца матрицы a.
- Если элемент больше нуля, то он прибавляется к сумме и увеличивается на единицу значение переменной k.
- Если после прохода по всем столбцам строки значение переменной k осталось равным нулю, то выводится сообщение о том, что в данной строке нет положительных элементов.
- Если значение переменной k не равно нулю, то выводится сообщение со средним арифметическим положительных элементов данной строки.