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

VBA

Question

Информатика

Евфросин

1 мая, 09:22

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

VBA

+5

Ответы (1)

Знаете ответ?

Ермиония · 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.

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

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

VBA