Предмет: Информатика,
автор: Prull
Найти произведение всех ненулевых элементов массива D. Массив D(10). Ограничение D с нижним индексом i не равно 0
VBA
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Английский язык,
автор: Azzzau8
Предмет: Алгебра,
автор: ilya1paraev
Предмет: Геометрия,
автор: pavlova1701
Предмет: Геометрия,
автор: ToshaBear