Как найти сумму элементов в каждой строке двумерного массива pasckal. и если можно произведение элементов в каждом столбце.

romatopovsky romatopovsky    1   23.09.2019 06:40    2

Ответы
AndrewGuyGuyson AndrewGuyGuyson  10.09.2020 14:50
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Суммы по строкам');
  a.Rows.Select(row->row.Sum).Println;
  Writeln('Произведения по столбцам');
  a.Cols.Select(col->col.Aggregate(BigInteger(1),(p,q)->p*q)).Println
end.

Пример
Количество строк и столбцов в массиве: 5 4
*** Исходный массив ***
 -99 -70  -9 -24
  87 -34  66  -5
  92 -65  -9 -51
  61  99  79  17
 -40  22  75  88

Суммы по строкам
-202 114 -33 256 145
Произведения по столбцам
1933446240 -336936600 31675050 -9155520
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика