PascalABC Массив состоящий из 30 ,в промежутке от -2 до 65. Найти минимальное из...

Question

PascalABC
Массив состоящий из 30 ,в промежутке от -2 до 65.
Найти минимальное из положительных чисел, и максимальное из отрицательных.

Answer 1

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

begin
    var a := ArrRandomInteger(30, -2, 65);
    writeln('минимальное из положительных чисел ', a.Where(x -> x > 0).Min);
    if a.Any(x -> x < 0) then
        writeln('максимальное из отрицательных ', a.Where(x -> x < 0).Max)
    else writeln('нет отрицательных ');
end.