Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,15);a.Println;
Writeln(a.Aggregate(Biginteger(1),(x,y) -> x*y));
end.
Пример:
15 8 1 6 5 10 14 13 13 1
85176000
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,15);a.Println;
Writeln(a.Aggregate(Biginteger(1),(x,y) -> x*y));
end.
Пример:
15 8 1 6 5 10 14 13 13 1
85176000
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад