Question

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

Answer 1

____________________

Answer 2

Как насчет комментария автора вопроса "это на паскаль делать надо", который тут появился задолго до того, как Вы ответ начали писать?

Answer 3

не видел коммента с мобильной версии, домой приеду, перепишу

Answer 4

Не даст. Два часа на исправление.

Answer 5

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.

Answer 6

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