program nnn;
var
a:array[1..30] of integer;
kol,sum,i: integer;
st: real;
begin
writeln('Вводите температуру за 30 дней ноября');
for i:=1 to 30 do
readln(a[i]);
if a[i]<0
then begin
sum:= sum + a[i];
kol:= kol + 1;
end;
st:= sum / kol;
writeln('Средняя температура заморозков за ноябрь: ',st:0:1);
end.
program nnn;
var
a:array[1..30] of integer;
kol,sum,i: integer;
st: real;
begin
writeln('Вводите температуру за 30 дней ноября');
for i:=1 to 30 do
begin
readln(a[i]);
if a[i]<0
then begin
sum:= sum + a[i];
kol:= kol + 1;
end;
end;
st:= sum / kol;
writeln('Средняя температура заморозков за ноябрь: ',st:0:1);
end.