< >

Дан массиве, состоящий из 20 целочисленных элементов. Найти произведение положительных элементов массива.

minnibaeva02: Язык программирования?
Bubliktuti: Паскаль

Ответы

Ответ дал: BobbyFresnel
1

// PascalABC.NET 3.6.3

begin

 var a := ArrRandom(20, -99, 99);

 a.Println.Where(p -> p > 0).Product(p -> BigInteger(p)).Print

end.

Приложения:
Похожие вопросы
Химия
1 год назад
Помогите решить практическую по химии дам 25 баллов
Математика
1 год назад
Автомобільним шляхом міжнародного значення на те- риторії України є автотраса Київ-Чоп. Відстань на кар- тi мiж цими містами дорівнює 18 см, масштаб карти 1: 5 000 000. Знайдіть час, необхідний для
Другие предметы
1 год назад
дайте відповіді на ці 2 запитання
Информатика
1 год назад
3. Розробіть блок-схему алгоритму обчислення значень виразу a+b/2+√3(a+b2) ; для значень змінних а = 2, 4, 5, 7; b = 1, 3, 4, 6 і створення з цих значень масиву розміром 4х4, а також виведення масиву
Қазақ тiлi
2 года назад
Срочно помогите пж!!!
Английский язык
2 года назад
Напишите по английскому почему я хочу в photography club и art club​
Математика
8 лет назад
Срочно помогите пожалуйста Из двух посёлков одновременно выехали на встречу друг другу велосипедист и мотоциклист. Они встретились через 4 часа. Скорость велосипедиста 15/км ч, а мотоциклиста 57/км
Математика
8 лет назад
Помогите пожалуйста площадь квадрата 36 квадратных сантиметров Какой длины в сантиметрах могут быть стороны прямоугольника с такой же площадью как у квадрата Найди периметр каждой из них