<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
K=320 с
i=8 бит/с
I - ?
I=K*i=320 с * 8 бит/c = 320 c * 1 байт/с = 320 байтов
s=(х1)+(х2)+(3х)+(х4х)+(хn)+0,0001
// PascalABC.NET 3.3
begin
var a:=ArrRandom(35,2,42); a.Println;
Writeln('П=',a.Where(x->(x>=4)and(x<=10)).Aggregate(1,(p,x)->p*x));
end.
Пример:
34 16 9 17 4 11 34 26 30 17 28 18 6 31 38 20 30 35 29 40 21 38 30 10 5 9 15 12 28 5 23 6 30 30 37
П=2916000