Заполнить двумерный массив N*N числами с клавиатуры и найти сумму элементов массива нечётных столбцов

Program massiv;

var

A:array[1 ... n, 1 ... n]of integer; {Создание массива А размером n на n}

i, j, s:integer;

Begin

s:=o; {Задаем изначальное значение s}

for i:=1 to n do

for j:=1 to n do

begin

readln (A[i, j]); {Ввод с клавиатуры значения ячейки А[i, j]}

if jmod2=1 then s:=s+A[i, j]; {Если остаток от деления j на 2 = 1 (если j не четное), то к значению ячейки s прибавляется значение ячейки A[i, j]}

end;

writeln (s); {Вывод на экран значения ячейки s}

end.