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.
#include <iostream>
#include <conio.h>
#include <locale>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
size_t arraySize;
cout << "Количество элементов: ";
cin >> arraySize;
double* array = new double[arraySize];
double sum = 0;
for (size_t i = 0; i < arraySize; ++i) {
double value;
cout << i << ": ";
cin >> value;
array[i] = value;
sum += value;
}
cout << "Массив из " << arraySize << " элементов:" << endl;
for (size_t i = 0; i < arraySize; ++i)
cout << "\t[" << i << "]: " << array[i] << endl;
cout << "Произведение элементов: " << sum << endl;
delete[] array;
_getch();
return 0;
}