Написать программу, в которой массив из 20 элементов заполняется случайными числами и вычисляется произведение всех элементов массива.
Написать программу, в которой массив из 20 элементов заполняется случайными числами и вычисляется произведение всех элементов массива.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(20,-15,25); a.Println;
var p:BigInteger:=1;
foreach var x in a do p*=x;
Writeln('Произведение элементов равно ',p)
end.
Тестовое решение:
-3 5 8 -14 10 19 18 -15 15 -13 22 9 7 20 -12 6 6 -8 -3 -8
Произведение элементов равно 38640208365158400000
Не нашли ответ?
Похожие вопросы