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

Question

Найти произведение всех ненулевых элементов массива D. Массив D(10). Ограничение D с нижним индексом i не равно 0

VBA

Answer 1

Var d:array[1..10] of integer;

s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
       begin

       readln(d[i]);

       If d[i]<>0
        Then S:=S*d[i];

        end;
Writeln(S);
end.