var
a: array [1..5] of real; //Массив из пяти вещественных элементов
i: integer; //Переменная для цикла
s: real; //Значение произведения
begin
s:= 1;
for i:= 1 to 5 do //Вводим элементы массива
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]);
if a[i] <> 0 then s:= s * a[i]; {Если элемент массива не равен 0, то умножаем значение произведения на элемент массива}
end;
writeln('Произведение не нулевых элементов массива: ', s); {Выводим значение произведения}
end.
