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

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

ой да щас

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

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

//PascalABC.Net 3.1 сборка 1200begin    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.