Вычислите произведение положительных чисел , содержащих среди данных n чисел(pascalabc,c++)

Объяснение:

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.