Это цикл, так как временя года следуют в определенном порядке
Var
st:real;
i,n:integer;
t:array[1..31]of integer;
begin
writeln('Температура в январе:');
for i:=1 to 31 do
begin t[i]:=random(-10,5);
write(t[i],' ');
st:=st+t[i];
if t[i]<0 then n:=n+1
end;
st:=st/31;
writeln;
writeln('Число дней с отр.температурой: ',n);
writeln('Средняя температура: ',st:1:1)
<span>end.</span>
Человек работает с компьютером с помощью мыши (для компьютера), с интернетом и с помощью клавиатуры.
Исходный программный код находится в приложении ниже.
Писал в PascalABC.Net v.3.2, сборка 1325 (19.10.2016)