Предмет: Информатика,
автор: Bubliktuti
Дан массиве, состоящий из 20 целочисленных элементов. Найти произведение положительных элементов массива.
minnibaeva02:
Язык программирования?
Паскаль
Ответы
Автор ответа:
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.
Приложения:
Интересные вопросы
Предмет: Русский язык,
автор: Halifax
Предмет: Русский язык,
автор: reimermarina
Предмет: Українська мова,
автор: guchko0
Предмет: Геометрия,
автор: Ami3go