Question

Дан целочисленный двумерный массив, размерности n х m. Найти сумму и произведение всех элементов массива. Паскаль

Answer 1

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

begin

 var (n, m) := ReadInteger2('Введите n и m:');

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

 a.Println(4);

 var s := a.ElementsByRow;  // последовательность не хранится!

 Writeln('Сумма элементов = ', s.Sum, ', их произведение = ',

   s.Aggregate(BigInteger.One, (p, q) -> p * q))

end.