Найти суммы элементов всех нечетных столбцов матрицы - Pascal

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

Помогите пжл! Прога на паскале нужна... ДВУМЕРНЫЕ МАССИВЫ. 2. Дана матрица размера 5x9. Найти суммы элементов всех ее нечетных столбцев

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

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

uses crt;
const n=5;
      m=9;
var a:array[1..n,1..m] of integer;
    i,j,sum:integer;
 begin
  ClrScr;
  Writeln('Введеите матрицу...');
   for i:=1 to n do
    for j:=1 to m do
     begin
      Write('a[',i,',',j,']->');
      Readln(a[i,j]);
     end;
  Writeln('Введенная матрица...');
   for i:=1 to n do
    begin
     for j:=1 to m-1 do
      Write(a[i,j]:3);
      Writeln(a[i,m]:3);
    end;
   Writeln('------------');
     for j:=1 to m do
      for i:=1 to n do
       if j mod 2=1 then
        sum:=sum+a[i,j];
  Writeln('Сумма ',sum);
  Readln;
 end.

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

В данном коде используется язык программирования Pascal. Он предназначен для решения различных задач, включая обработку данных и вычисления. Переменные в этом коде имеют следующие значения:

n - количество строк в матрице (в данном случае равно 5);
m - количество столбцов в матрице (в данном случае равно 9);
a - матрица, которую нужно заполнить числами от 1 до n*m;
i - индекс строки, который изменяется от 1 до n;
j - индекс столбца, который изменяется от 1 до m;
sum - сумма элементов нечетных столбцов матрицы. Код начинается с инициализации переменных и объявления массива a. Затем происходит чтение матрицы из ввода пользователя. Для этого используется цикл for, который выполняется два раза - один раз для каждой строки матрицы. Внутри цикла пользователь вводит элементы матрицы. Далее код выводит введенную матрицу на экран. Для этого также используется цикл for, который выполняется два раза - один раз для каждой строки матрицы. Внутри цикла выводятся элементы матрицы, используя функцию Write. Затем код вычисляет сумму элементов нечетных столбцов матрицы. Для этого используется еще один цикл for, который выполняется два раза - один раз для каждого столбца матрицы. Внутри цикла проверяется, является ли текущий столбец нечетным, и если да, то к сумме добавляется его элемент. Наконец, код выводит на экран сумму элементов нечетных столбцов матрицы.