Дан целочисленный массив из 27 элементов. элементы массива могут принимать целочисленные значение значения от -20 до 20 – сведения о температуре за каждый день ноября. опишите алгоритм, который находит и выводит максимальную температуру среди дней, когда были заморозки (температура опускалась ниже нуля). если таких чисел нет, нужно вывести сообщение ″таких чисел нет″. на языке паскаль.

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(27,-20,20); a.Println;
  var max:=a.Where(t->t<0).DefaultIfEmpty.Max;
  if max=0 then Writeln('Таких чисел нет')
  else Writeln(max)
end.

Пример
6 2 14 16 -18 -18 -8 17 -9 12 8 16 4 -5 -3 11 17 -6 8 13 4 12 5 -4 -8 16 -8
-3