Решение матрицы - Pascal (80210)

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

Помогите сделать программу для вычисления и запомнить суммы и число положительных элементов каждой строки матрицы. Результаты отпечатать в виде двух столбцов, размеры матрицы A(20,15) элементы матрицы

Решение задачи: «Решение матрицы»

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

const m=20;
      n=15;
var a:array[1..m,1..n] of real;
    i,j,k:byte;
    s:real;
begin
writeln('Матрица');
writeln('Сумма':5*n+8,'Кол.пол.':10);
for i:=1 to m do
 begin
  s:=0;
  k:=0;
  for j:=1 to n do
   begin
    a[i,j]:=(1+cos(j))*ln(1+0.5*cos(i));
    s:=s+a[i,j];
    if a[i,j]>0 then k:=k+1;
    write(a[i,j]:5:2);
   end;
  writeln(s:8:2,k:8);
 end;
end.

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

Объявляется константа m со значением 20 и n со значением 15.
Объявляется двумерный массив a размером m на n для хранения чисел с плавающей точкой.
Объявляются переменные i, j, k как байты, и переменная s для хранения чисел с плавающей точкой.
Начинается блок кода.
Выводится слово Матрица.
Выводится форматированный заголовок для вывода суммы и количества положительных чисел в строке.
Запускается цикл счетчика i от 1 до m.
Внутри этого цикла переменные s и k устанавливаются в 0.
Запускается вложенный цикл счетчика j от 1 до n.
Внутри этого цикла присваивается значение элементу массива a по индексам i и j с использованием формулы, в которой используются тригонометрические и логарифмические операции.
Значение в a[i, j] прибавляется к s.
Если a[i, j] больше 0, увеличивается значение k на 1.
Выводится значение a[i, j] с форматированием.
Заканчивается внутренний цикл.
Выводится значение s и k с форматированием после всех значений массива a в строке.
Заканчивается внешний цикл.
Конец программы.