Найдите сумму произведений и среднее значение элементов массива

Question 1

Question 2

стойтн

Question 3

да, вроде бы так

Question 4

Я первым сообщением дал пример массива. Вот на этот вопрос и хочется ответ получить

Question 5

да, всё таки нужно отдельно сумму и отдельно произведение. Ведь действительно никак не получиться найти сумму произведений. Извините меня за мою неответственность, буду исправляться.

Question 6

Т.е. сумму, произведение и среднее

Question 7

да, именно так:)

Question 8

С произведением может быть не все так гладко: оно очень быстро растет))))

Question 9

попробуйте взять всего два массива

Question 10

ой нет

Question 11

извините

Question 12

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма = ',a.Sum,', произведение = ',
a.Aggregate(BigInteger(1),(p,q)->p*q),
', среднее = ',a.Average)
end.

Пример
n= 17
49 -31 46 61 -87 18 -64 -48 66 64 -37 56 43 -52 13 28 -78
Сумма = 47, произведение = -11393046129075182950686916608, среднее = 2.76470588235294

Эникей_zn · Answer 1 · 2018-05-31T18:56:12+0000

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма = ',a.Sum,', произведение = ',
a.Aggregate(BigInteger(1),(p,q)->p*q),
', среднее = ',a.Average)
end.

Пример
n= 17
49 -31 46 61 -87 18 -64 -48 66 64 -37 56 43 -52 13 28 -78
Сумма = 47, произведение = -11393046129075182950686916608, среднее = 2.76470588235294