Вопрос по информатике:
Дана матрица размера M × N. Для каждого столбца матрицы с четным
номером (2, 4, …) найти сумму его элементов. Условный оператор не ис-
пользовать.
Решить в Pascal.
- 24.11.2017 14:18
- Информатика
- remove_red_eye 8409
- thumb_up 13
Ответы и объяснения 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.
- 25.11.2017 11:56
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.