Дана матрица размера M * N. Для каждого столбца матрицы с четным

номером (2, 4, ...) найти сумму его элементов. Условный оператор не ис-

пользовать.

Решить в Pascal.

Const N = 4; M = 4;

var A: array [,] of integer : =

((1, 2, 3, 4),

(5, 6, 7, 8),

(9, 10, 11, 12),

(13, 14, 15, 16)) ;

i, j, s: integer;

begin

writeln ('Исходная матрица') ;

for i : = 0 to N-1 do begin

for j : = 0 to M-1 do

write (A[i, j]:3) ;

writeln;

end;

for i : = 0 to (M - 1) div 2 do begin

s : = 0;

for j : = 0 to N - 1 do

s : = s + A[j, i*2];

writeln ('сумма в столбце ', i*2:3, ' = ', s) ;

end;

end.