Question

С ПОМОЩЬЮ ПАСКАЛЯ                 
Дана информация о температуре воздуха за январь. Написать программу, которая:
а)Определит сколько раз температура опускалась ниже 0 градусов
б)Определит среднюю температуру за январь

Answer 1

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)
end.

Answer 2

а почему значение ср. температуры постоянно меняется?

Answer 3

Чуток ошибся, единичка не пропечаталась)) Вот так надо: t[i]:=random(15)-10

Answer 4

Ну мы же случайными числами заполняем (берем с "потолка"). А они при каждом запуске программы разные. Вот и среднее разное

Answer 5

Заработала прога?