Задана матрица неотрицательных чисел размером n на m. Найти сумму элементов расположенных на четных строках и сумму элементов расположенных на нечетных столбцах.
Answers & Comments
danulpopov
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию! begin var (n, m):= ReadlnInteger2('n, m ->');Writeln('Сгенерированная матрица:'); var a:= MatrRandom(n,m);a.Println; var sumEven:= 0; var sumOdd := 0;dec(n);dec(m); for var i:= 0 to n do if (i+1).isEven then sumEven:= sumEven + a.Row(i).sum else sumOdd := sumOdd + a.Row(i).sum; Writeln('Cумма на четных строках -> ', sumEven); Writeln('Cумма на нечетных строках -> ',sumOdd); end.
Пример: n, m -> 4 5 Сгенерированная матрица: 62 61 7 15 76 74 84 43 80 4 37 9 40 86 34 45 70 87 30 51 Cумма на четных строках -> 568 Cумма на нечетных строках -> 427
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var (n, m):= ReadlnInteger2('n, m ->');Writeln('Сгенерированная матрица:');
var a:= MatrRandom(n,m);a.Println;
var sumEven:= 0;
var sumOdd := 0;dec(n);dec(m);
for var i:= 0 to n do
if (i+1).isEven then
sumEven:= sumEven + a.Row(i).sum
else
sumOdd := sumOdd + a.Row(i).sum;
Writeln('Cумма на четных строках -> ', sumEven);
Writeln('Cумма на нечетных строках -> ',sumOdd);
end.
Пример:
n, m -> 4 5
Сгенерированная матрица:
62 61 7 15 76
74 84 43 80 4
37 9 40 86 34
45 70 87 30 51
Cумма на четных строках -> 568
Cумма на нечетных строках -> 427