Двумерный массив. Найти количество четных элементов пятого и шестого столбца - Pascal

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

Дана матрица S(5,10) целых чисел. Найти количество четных элементов пятого и шестого столбца.

Решение задачи: «Двумерный массив. Найти количество четных элементов пятого и шестого столбца»

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

const N = 5;
const M = 10;
 
type item_t = integer;
type line_t = array[1..M] of item_t;
type tabl_t = array[1..N] of line_t;
 
procedure printLine( const l: line_t );
var
  i: integer;
begin
  for i:= 1 to M do
    write(l[i] :5);
  writeln;  
end; 
procedure printTabl( const t: tabl_t );
var
  i: integer;
begin
  for i:= 1 to N do
    printLine(t[i]);
end; 
 
procedure init_2d( var a: tabl_t );
var
  x,y: integer;
begin
    for y:=1 to N do
      for x:=1 to M do
        a[y][x] := random(-100 , 100);
end;
 
 
 
var
  s: tabl_t;
  c,y: integer;
  
begin     
  init_2d(s); 
 
  printTabl(s);
    
  Writeln('-------------------------------');
 
  c := 0;
  for y:=1 to N do if s[y][5] mod 2 = 0 then c := c + s[y][5];    
  for y:=1 to N do if s[y][6] mod 2 = 0 then c := c + s[y][6];    
 
  writeln( c );
end.

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

В данном коде объявлены три переменные типа item_t: a, b и c. Переменная a представляет собой двумерный массив, который инициализируется в процедуре init_2d. Переменная b используется в процедуре printTabl для вывода содержимого массива t. Переменная c используется для подсчета количества четных элементов в пятом и шестом столбцах массива a. В процедуре init_2d используется цикл for, который выполняется N раз, где N - это размерность второго измерения массива a. Внутри цикла инициализируются все элементы массива a случайными числами в диапазоне от -100 до 100. В процедуре printTabl также используется цикл for, который выполняется N раз. Внутри цикла выводятся все элементы массива t с помощью процедуры printLine. В основной части кода инициализируется массив a с помощью процедуры init_2d. Затем выводится таблица с помощью процедуры printTabl. После этого вычисляется количество четных элементов в пятом и шестом столбцах массива a. Для этого используется два вложенных цикла for, которые выполняются N раз. Внутри циклов проверяется, является ли текущий элемент четным числом, и если да, то увеличивается счетчик c. В конце выводится значение переменной c, которое и является количеством четных элементов.