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<br> end; st:=st/31; writeln; writeln('Число дней с отр.температурой: ',n); writeln('Средняя температура: ',st:1:1) end.
В каком месте?
Ошибки быть не может, программа проверена. Если только версии Паскаля у нас с тобой разные. Или ошиблась при наботе текста программы. Ты программу копировала или вручную набивала? Я сейчас прям из своего ответа выше все скопировал, вставил в Паскаль, все работает. Давай подробнее ошибку описывай.
функция random с параметрами указанных типов не найдена
Ясно, у тебя старая версия. Сейчас
Напиши эту строчку вот так: t[i]:=random(5)-10
а почему значение ср. температуры постоянно меняется?
Чуток ошибся, единичка не пропечаталась)) Вот так надо: t[i]:=random(15)-10
Ну мы же случайными числами заполняем (берем с "потолка"). А они при каждом запуске программы разные. Вот и среднее разное
Заработала прога?
да, спасибо