Срочно. Составить программы по условиям:
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.
Приложения:
fffhrehuh:
Спасибо за ответ, но хотелось бы видеть программу с самыми простыми командами (иначе учитель не поймёт, откуда взято, ведь мы ещё не проходили), и задачи это две разные, т. е. две программы
Да. Один Println - одна программа, другой - другая. А начало одинаковое.
Один Println по выбору удаляем - и все.
Что качается "проходили" - ну откуда мне знать, что вы проходили, что нет?. Надо писать версию языка или набор операторов, если есть какие-то конкретные пожелания. А Вы даже языка программирования не пожелали указать!
И последнее. Не всегда решение задачи лишь то, что давали на уроке. Есть еще понятие самостоятельной работы.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад