Составьте программу вычисления суммы нечетных элементов матрицы A(N,N). - Pascal

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

Составьте программу вычисления суммы нечетных элементов матрицы A(N,N)

Решение задачи: «Составьте программу вычисления суммы нечетных элементов матрицы A(N,N).»

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

CONST N=3;
VAR A:ARRAY[1..N,1..N] OF INTEGER;
    S,I,J:INTEGER;
BEGIN
 WRITELN('ВВЕДИ ',N*N,' ЧИСЕЛ-ЭЛЕМЕНТОВ МАТРИЦЫ');
 FOR I:=1 TO N DO
 FOR J:=1 TO N DO
 BEGIN
 WRITE('A[',I,',',J,']=');
 READ(A[I,J]);
 END;
 WRITELN(' ':10,'ИСХОДНАЯ МАТРИЦА ');
 
  FOR I:=1 TO N DO
  BEGIN
   FOR J:=1 TO N DO
   WRITE(A[I,J]:4);  WRITELN;
   END;
 
  S:=0;
  FOR I:=1 TO N DO
  BEGIN
  FOR J:=1 TO N DO
    IF A[I,J] MOD 2<>0 THEN S:=S+A[I,J];
  END;
  WRITELN('Сумма= ',S:4);
END.

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

Объявляются переменные N, A, S, I, J, которые будут использоваться в программе.
Выводится сообщение с просьбой ввести количество чисел-элементов матрицы.
Задается размер матрицы N.
В цикле FOR считываются элементы матрицы A.
Выводится сообщение с просьбой ввести исходную матрицу.
В цикле FOR считываются элементы матрицы A.
Выводится сумма элементов матрицы A, если хотя бы один элемент нечетный.
Программа завершается.