1.в массиве из 25 элементов найти произведение положительных элементов меньших 5. 2.в массиве из 50 элементов найти максимальный элемент.

//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.