<em><u>С учетом замечания в комментарии: "</u></em><span><em><u>простите там НИЖЕ среднемесячной"</u></em></span><em><u /></em>
алг Температура
нач
цел n,i,k
вывод "Количество дней в месяце: "
ввод n
цел таб t[1:n]
вещ ТСред
ТСред:=0
вывод "Вводите ежедневную температуру",нс
нц для i от 1 до n
ввод t[i]; ТСред:=ТСред+t[i]
кц
k:=0; ТСред:=ТСред/n;
нц для i от 1 до n
если t[i]<ТСред то k:=k+1 все
кц
вывод "Количество дней с температурой больше среднемесячной: ",k,нс
кон
Дополнил класс Geometry двумя методами PolygonS() для подсчета площади прямоугольника и квадрата. Метод S() для подсчета площади круга превратился в CircleS(), дабы было понятнее. В методе Par() теперь код не дублируется и используется из CircleS().
13000тысячи 600сотни 80десятки 4единицы
var
b: <em>integer</em>;
begin
write(<em>'Введите целое число в переменную B.'</em>, #13, <em>'B := '</em>);
readln(b);
writeln(<em>'B = '</em>, b);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(10,20,25); a.Println;
Writeln(a.Max-a.Average)
end.
<u><em>Тестовое решение</em></u>
23 25 25 23 23 24 20 23 25 21
1.8