Дан целочисленный массив из 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]);
const
N=30;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i:=1 to N do readln(a[i]);
j:=0;
max:=0;
for i:=1 to N do
if (a[i]<0) then
begin
max:=max+a[i];
j:=j+1;
end;
writeln('Средняя температура среди дней,',
' когда были заморозки: ',max/j);
end.