Информация о средней суточной температуре воздуха за месяц задана в виде массива. определите, температура скольких дней была выше среднемесячной. напишите программу в кумире

С учетом замечания в комментарии: "простите там НИЖЕ среднемесячной"

алг Температура
нач
цел 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,нс
кон