Question

Помогите решить.
10 номер на языке Паскаль.

Answer 1

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.