заполните массив десятью случайными числами от -5 до 8, подсчитать произведения его...

0 голосов
41 просмотров

заполните массив десятью случайными числами от -5 до 8, подсчитать произведения его элементов


Информатика | 41 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln(ArrRandom(10,-5,8).Println.Aggregate(1,(m,n)->m*n))
end.

Тестовое решение:
4 6 7 4 3 -5 2 7 -5 -4
-2822400


(142k баллов)