Полученная в нужный момент времени информация явлается актуальной или полезной
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.
Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.