Пожалуйста посчитайте написать программу на языке программирования Паскаль в результате выполнения которой получались произведение не нулевых элементов массива .

programHelloWorld;

var n:array[1..10] of integer;

var c:integer;

var i:SmallInt;

 begin

c:=1;

 for i:=1 to 10 do     
n[i] := random(10); //заполняем случайными данными

for i:=1 to10 do
if n[i] > 0 then c:=c*n[i];

end.