Найти произведение всех ненулевых элементов массива - вопрос №164831110 от 1652001 26.12.2022 22:57

Question

Информатика: Найти произведение всех ненулевых элементов массива d. массив d(10). ограничение d с нижним индексом i не равно 0 vba

1652001 · Answer

Var d:array[1..10] of integer; s,i:integer;Begins:=1;For i:=1 to 10 do       begin        readln(d[i]);        If d[i] 0        Then S:=S*d[i];         end;Writeln(S);end. ...