С учетом замечания в комментарии: "простите там НИЖЕ среднемесячной"алг Температураначцел 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,нскон