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