Для каждого столбца матрицы посчитать сумму четных элементов. Результат сохранить в одномерном массиве. - Pascal

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

Для каждого столбца матрицы посчитать сумму четных элементов. Результат сохранить в одномерном массиве. Матрицу ввести с клавиатуры.

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

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

uses crt;
const
a=10;
b=10;
var mas : array [1..a,1..b] of integer;
mas2 : array [1..b] of integer;
i,j,s : integer;
begin
writeln('Введите элементы матрицы');
for i:=1 to a do
for j:=1 to b do
read(mas[i,j]);
writeln ('Исходная матрица');
for i:=1 to a do
begin
for j:=1 to b do
begin
write (mas[i,j]:4);
end;
writeln;
end;
for j:=1 to b do
begin
s:=0;
for i:=1 to a do
if mas[i,j] mod 2 = 0 then s:=s+mas[i,j];
mas2[j]:=s;
end;
writeln('Одномерный массив ');
for j:=1 to b do
write(mas2[j]:4);
end.

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

Программа использует библиотеку CRT (Console Report Template) для работы с консолью.
Задается размер матрицы a=10 и b=10.
Создается двумерный массив mas размером a x b для хранения элементов матрицы.
Создается одномерный массив mas2 размером b для хранения суммы четных элементов каждого столбца.
Инициализируются переменные i, j, s со значением 0.
Выводится сообщение Введите элементы матрицы и происходит ввод элементов матрицы с помощью цикла for i:=1 to a do for j:=1 to b do read(mas[i,j]);
Выводится сообщение Исходная матрица и происходит вывод элементов матрицы с помощью цикла for i:=1 to a do begin for j:=1 to b do write(mas[i,j]:4); writeln; end;
Происходит обход каждого столбца матрицы с помощью цикла for j:=1 to b do begin s:=0; for i:=1 to a do if mas[i,j] mod 2 = 0 then s:=s+mas[i,j]; mas2[j]:=s; end;
Выводится сообщение Одномерный массив и происходит вывод элементов массива mas2 с помощью цикла for j:=1 to b do write(mas2[j]:4);
Программа завершается.