Массивы

[Antonio_getscool]

Дана матрица размера 5x9 найти суммы элементов всех ее четных столбцов

[IT-man]

s:=0;
for i:=1 to 5 do
for j:=1 to 9 do
if j mod 2 =0 then s:=s+a[i,j];
writeln(s);