Найти произведение всех ненулевых элементов массива D. Массив D(10). Ограничение D с нижним индексом i не равно 0 VBA
Найти произведение всех ненулевых элементов массива D. Массив D(10). Ограничение D с нижним индексом i не равно 0 VBA
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы