В одномерном массиве рассчитайте произведение элементов, которые не равняются 0.
В отчёт включить тексты программ, реакции ЭВМ.
Заранее большое спасибо!!!
В отчёт включить тексты программ, реакции ЭВМ.
Заранее большое спасибо!!!
More Questions From This User See All
Answers & Comments
Ответ:
program test;
var
x: Array [1..15] of integer = (-1,0,2,8,0,3,14,56,8,1,-18,-9,-7,-2,-7);
mult: real;
i: byte;
begin
mult:=1;
for i := 1 to 15 do
begin
if (x[i]<>0) then
mult:=x[i]*mult
end;
write('Произведение элементов в массиве: ',mult);
end.