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

128

266

Посмотреть ответы 2

Ответы на вопрос:

nasty78ss

Информатика

4,8(79 оценок)

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.