Предмет: Информатика, автор: Prull

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

VBA 

Ответы

Автор ответа: Mary166
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. 

Похожие вопросы
Предмет: Алгебра, автор: ilya1paraev