Question

В одномерном массиве, состоящем из n вещественных элементах. Вычислить произведение положительных элементов массива. Написать программу на языке Паскаль.

Answer 1

Ответ:

PascalABC.NET

begin

 var n := ReadInteger('укажите длину массива: ');

 var A := ReadArrReal('Вводи: ',n);

 A.Where(x-> x>0).Product.Println;

end.