Вычислить сумму всех элементов четных столбцов и произведение всех элементов нечетных столбцов матрицы - Pascal

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

Вычислить сумму всех элементов четных столбцов и произведение всех элементов нечатных столбцов в двумерном массиве А вещественных чисел

Решение задачи: «Вычислить сумму всех элементов четных столбцов и произведение всех элементов нечетных столбцов матрицы»

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

program pr;
 
var
  a: array [1..100, 1..100] of real;    // ограничение взял для примера(можно любой или динамический массив)
  n, m, i, j: integer;
  sum, p: real;
 
begin
  writeln('Введите количество строк матрицы');
  readln(n);
  writeln('Введите количество столбцов матрицы');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);          // диапазон так же любой (здесь от 0 до 20)
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  sum := 0;
  for i := 1 to n do
    for j := 1 to m do
      if (j mod 2 = 0) then
        sum := sum + a[i, j];
  p := 1;
  for i := 1 to n do
    for j := 1 to m do
      if (j mod 2 <> 0) then
        p := p * a[i, j];
  writeln;
  writeln('Сумма элементов чётных столбцов: ', sum);
  writeln('Произведение элементов нечётных столбцов: ', p);
end.

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

Этот код написан на языке Pascal и выполняет следующие действия:

Запрашивает у пользователя количество строк и столбцов матрицы.
Создает массив a размером (n*m+1) для хранения матрицы.
Заполняет матрицу случайными числами от 0 до 20.
Выводит содержимое каждой строки матрицы.
Инициализирует переменные sum и p нулевыми значениями.
В цикле проходит по всем элементам матрицы и суммирует элементы четных строк в переменной sum.
В другом цикле проходит по всем элементам матрицы и перемножает элементы нечетных строк в переменной p.
Выводит сумму элементов четных столбцов и произведение элементов нечетных столбцов. Примечание: в этом коде используется два вложенных цикла for, которые проходят по всем элементам матрицы.