Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов - Pascal ABC

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

Как найти в паскале сумму не положительных элементов двумерного массива A [N, M ] c четным номером столбцов заполненного вещественными числами из отрезка [-50;50]

Решение задачи: «Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов»

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

program ex;
const n = 3;
      m = 3;
var a:array[1..n,1..m]of real;
i,j:integer;
sum:real;
 
begin
randomize();
for i:=1 to n do 
  for j:=1 to m do
  begin
  a[i,j]:=random(101)-50;
  if (a[i,j] < 0) and (j mod 2 = 0) then
  sum := sum + a[i,j];
  end;
  
for i:=1 to n do 
  begin
    for j:=1 to m do
    write(a[i,j]:3);
  writeln();
  end;
 
writeln('Сумма не положительных элементов в четных столбцах = ', sum);
end.

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

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

n - количество строк в массиве A;
m - количество столбцов в массиве A;
a - двумерный массив, содержащий числа от 0 до 100;
i - номер строки, в которой находится текущий элемент массива;
j - номер столбца, в котором находится текущий элемент массива;
sum - сумма всех не положительных элементов в четных столбцах; Код начинается с инициализации генератора случайных чисел. Затем происходит итерация по всем элементам массива a. Для каждого элемента проверяется условие: если он меньше нуля и его столбец четный, то к переменной sum прибавляется значение этого элемента. После этого происходит итерация по всем строкам массива a. Для каждой строки выводятся значения элементов массива. В конце программы выводится значение переменной sum, которая представляет собой сумму всех не положительных элементов в четных столбцах.