Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(10, -5, 5);
a.Println;
a.Where(t -> t = 0).Aggregate(1, (p, q)-> p * q).Println
end.
-4 -4 -2 -5 -2 0 -5 -2 -3 0
0
0 votes Thanks 1
angryfukse
Const m=100; var arr:array[1..m] of real; size:integer; opNull:real; i:integer; begin readln(size); for i:=1 to size do read (arr[i]); opNull:=1; for i:=1 to size do if (arr[i]=0) then opNull:=opNull*arr[i]; writeln(opNull); end.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(10, -5, 5);
a.Println;
a.Where(t -> t = 0).Aggregate(1, (p, q)-> p * q).Println
end.
-4 -4 -2 -5 -2 0 -5 -2 -3 0
0