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

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

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

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

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.

____________________

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 00