Дан целочисленный двумерный массив, размерности n х m. Найти сумму и произведение всех элементов массива. Паскаль
Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/f24/f245075ab0fcf66b5fa9a1c0f1201784.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад