// 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
9 раз
Объяснение:
первый раз заходит с i=2, последний с i=10