Question

найти сумму нечетных чисел каждой строки матрицы. Результат записать в массиве Н

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln;

 var H := a.Rows

     .Select(row -> row.Where(p -> p.IsOdd).Sum)

     .ToArray;

 H.Println

end.