Объяснение:
C++
include <iostream>
using namespace std;
int main()
{
int p=1, n=0,a=0;
cout<<"Введите количество чисел:";
cin>>n;
cout<<"Вводите числа:";
for (int i = 0; i< n; i++)
{
cin>>a;
if (a>0) p=p*a;
}
cout<<"Произведение положительных чисел равно "<<p;
return 0;
}
//PascalABC.NET
Begin
var n := ReadInteger('Введите количество чисел');
var P:real := 1;
WriteLn('Введите ');
For var i := 1 to n do
Begin
var a := ReadReal();
if (a > 0) then
P := P * a;
End;
WriteLn('Произведение положительных, среди введённых: ',P);
End.
