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

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