Среди элементов четных строк массива определить количество отрицательных элементов - Pascal ABC

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

Дан Массив X(N,M).Среди элементов четных строк массива определить К - количество отрицательных элементов.

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

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

uses  Crt;
const high = 20;
      low  = -20;
      n    = 5;
      m    = 7;
type
      massiv = array [1..n, 1..m] of integer;
var   X : massiv;
 
Procedure In_Mas(var mas:massiv; phight, plow : integer);
          var i, j : byte;
          Begin
               for i:=1 to n do
                   for j:=1 to m do
                       mas[i,j]:=plow+Random(phight-plow+1);
          End;
 
Procedure Out_Mas(const mas:massiv);
          var i, j : byte;
          Begin
               for i:=1 to n do
               begin
                    for j:=1 to m do
                        Write(mas[i,j]:4);
                    WriteLn;
               end;
          End;
 
Function Maximum(const mas:massiv):integer;
          var i, j, sum : byte;
          Begin
               sum:=0;
               i:= 2;
               repeat
                   for j:=1 to m do
                       if (mas[i,j]<0) then sum:=sum+1;
                   i:=i+2;
               until i>n;
               Maximum:=sum;
          End;
 
BEGIN
     Randomize;
     ClrScr;
     In_Mas(X, high, low);
     WriteLn('X:');
     Out_Mas(X);
     WriteLn('Количество отрицательных элементов в четных строках массива = ', Maximum(X):4);
END.

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

В процедуре In_Mas переменная X объявлена как массив типа massiv, который представляет собой двумерный массив целых чисел размером n на m.
В цикле for i:=1 до n do выполняется итерация по элементам первого столбца массива X. Аналогично, в цикле for j:=1 до m do выполняется итерация по элементам второго столбца массива X.
Внутри циклов, с помощью оператора присваивания :=, каждому элементу массива X присваивается значение, равное значению переменной plow+Random(phight-plow+1), где phight — это максимальное значение из диапазона от plow до plow+Random(phight-plow+1), а plow — это минимальное значение из диапазона от -high до -plow.
В процедуре Out_Mas, после вывода заголовка X:, происходит вывод содержимого массива X построчно, используя цикл for i:=1 до n do и цикл for j:=1 до m do. Каждый элемент массива X выводится в формате 4-х знаков после запятой.
В функции Maximum, переменная sum инициализируется значением 0, а переменная i устанавливается равной 2. Затем, в цикле repeat, выполняется итерация по всем элементам массива X, начиная с позиции i. Если текущий элемент массива X меньше нуля, то значение переменной sum увеличивается на 1. После каждой итерации, значение переменной i увеличивается на 2. Цикл повторяется до тех пор, пока i не станет больше n. Значение переменной sum, которое равно сумме всех отрицательных элементов массива X, возвращается из функции.