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

VBA

Question

Информатика

Витяся

6 июля, 01:28

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

VBA

+3

Ответы (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