// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
Writeln('П=',a.Where(x->x<0).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
n= 15
-9 1 -6 -2 -9 4 5 -1 6 -6 6 -4 0 5 -10
П=233280
n= 100
4 5 10 -2 9 3 0 7 -2 1 9 -1 -1 -5 -7 5 -4 -6 7 4 -5 10 6 -1 1 -4 -2 5 -6 -10 0 0 -7 -1 -1 7 -6 -1 -3 4 3 -9 7 7 0 -5 7 1 -8 -1 9 6 1 9 6 5 9 1 7 2 -6 6 2 -2 -10 -2 -4 10 6 -3 0 7 8 -8 -10 -7 -7 10 10 -4 0 8 3 6 -8 5 10 -6 4 4 8 4 2 5 -1 8 0 -2 6 -9
П=14271704784175104000000
V - дизъюнкция или операция "или" , т.е
х меньше 14 или х меньше 13 тогда
Если х=1 то
Первая часть равна единицы, т.е правда
Вторая часть тоже равна 1, т.е правда,
Тогда
А V В =1+1=1
Т.е правда
Var
X:integer;
Begin
WriteLn('X Sin(X) Cos(X)');
For X:= 0 to 10 do
WriteLn((X/10):0:4,' ',Sin(X/10):0:4,' ',Cos(X/10):0:4);
End.
<span>(((1v0)v1)v1)
</span>((1v1)v1)
(1v1)
1