Вычислите произведение положительных чисел , содержащих среди данных N...

Question

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

Answer 1

Ответ:

Объяснение:

C++

include

using namespace std;

int main()

{

int p=1, n=0,a=0;

cout<<"Введите количество чисел:";</p>

cin>>n;

cout<<"Вводите числа:";</p>

for (int i = 0; i< n; i++)

{

cin>>a;

if (a>0) p=p*a;

}

cout<<"Произведение положительных чисел равно "<<p;</p>

return 0;

}

Answer 2

//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.