На взять и две монеты положить на весы ( любые) дальше 2 варианта: либо две монеты равны в весе, тогда фальшивая третья, либо одна будет легче и она будет фальшивой
<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,нс кон