Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целочисленные значение значения от -20 до 20 – сведения о температуре за каждый день ноября. Напишите фрагмент
программы, которая находит и выводит максимальную температуру среди дней, когда были
заморозки (температура опускалась ниже нуля). Гарантируется, что хотя бы один день в ноябре была
отрицательная температура. Исходные данные объявлены так, как показано ниже. Запрещается
использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=30;
var a: array [1..N] of integer;
i, j, max: integer;
begin
for i:=1 to N do readln(a[i]);
...
end.
на паскале, пожалуйста