Дана матрица размера M × N. Для каждого столбца матрицы с четным номером (2, 4, …) найти...

Question

Дана матрица размера M × N. Для каждого столбца матрицы с четным
номером (2, 4, …) найти сумму его элементов. Условный оператор не ис-
пользовать.

Решить в Pascal.

Answer 1

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.