Дан массив из 10 чисел. Найти произведение всех нулевых элементов этого массива.

Question

Дан массив из 10 чисел. Найти произведение всех нулевых элементов этого массива.

Comments

это на паскаль делать надо

Answer 1

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

Answer 2

____________________

---

Comments

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.