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.

Answer 2

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

Answer 3

ой да щас

Answer 4

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

Answer 5

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