1.В МАССИВЕ ИЗ 25 ЭЛЕМЕНТОВ НАЙТИ ПРОИЗВЕДЕНИЕ ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ МЕНЬШИХ 5. 2.В...

Question

1.В МАССИВЕ ИЗ 25 ЭЛЕМЕНТОВ НАЙТИ ПРОИЗВЕДЕНИЕ ПОЛОЖИТЕЛЬНЫХ ЭЛЕМЕНТОВ МЕНЬШИХ 5.
2.В МАССИВЕ ИЗ 50 ЭЛЕМЕНТОВ НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ.

Answer 1

//PascalABC.Net 3.1 сборка 1200
begin
    var p := 1;
    p := ArrRandom(25, -50, 50).Where(x -> (x > 0) and (x < 5)).Aggregate((p, x)-> p * x);     
    PrintLn(p);
    PrintLn(ArrRandom(50, -50, 50).Max());
end.

Comments

Может я не прав но x положительный и меньше 5: Where(x -> (x > 0)and(x<5))

---

ой да щас

---

И не понимаю, как обойти ситуацию, когда таких х нет.

---

)) и то верно. тоже не знаю