Срочно. Составить программы по условиям:
1. В массиве A[10] посчитать количество чётных элементов.
2. В массиве A[10] найти произведение ненулевых элементов.
Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
var a := ArrRandom(10, -99, 99);
a.Println;
Println('Четных:', a.Count(p -> p.IsEven));
Println ('Произведение ненулевых равно',
a.Where(p -> p <> 0)
.Aggregate(BigInteger.One, (u, v) -> u * v))
end.
Приложения:
![](https://st.uroker.com/files/d69/d697c7778e686a00b9495f11b1831ca6.jpg)
fffhrehuh:
Спасибо за ответ, но хотелось бы видеть программу с самыми простыми командами (иначе учитель не поймёт, откуда взято, ведь мы ещё не проходили), и задачи это две разные, т. е. две программы
Вас заинтересует
4 месяца назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад