Question

СРОЧНО! 25 БАЛЛОВ! Дан одномерный массив длиной 15 элементов, заполненный рандомно числами от 0 до 100. найти сумму элементов массива и произведение

Answer 1

// PascalABC.NET 3.6.3

begin

 var a := ArrRandom(15, 0, 100);

 a.Println;

 Print('Сумма', a.Sum, '  произведение', a.Product(p -> BigInteger(p)))

end.