Паскаль. Найти произведения одномерного массива

Паскаль. Найти произведения одномерного массива
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1412 от 25.03.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ReadSeqIntegerWhile('Вводите, 0- конец:',k->k<>0).ToArray;   Writeln('П=',a.Aggregate(BigInteger(1),(x,y)->x*y)) end. Пример Вводите, 0- конец: 61 1 -86 -23 -35 -57 96 -54 -3 -90 -12 -62 3 -47 27 90 85 0 П=7300372606875554895360000
Не нашли ответ?
Ответить на вопрос
Похожие вопросы