program DaysAboveAverage;

type
Vremya = 0..23;
Gradusi = -40..40;
Temperatura = array[Vremya] of Gradusi;

var
t: Temperatura;
sum: integer;
avg: real;
daysAboveAverage: integer;
i: Vremya;

begin
sum := 0;
daysAboveAverage := 0;

// Ввод температур
for i := 0 to 23 do
begin
writeln('Введите температуру в ', i, ' часов: ');
readln(t[i]);
sum := sum + t[i];
end;

// Вычисление средненедельной температуры
avg := sum / 24;

// Подсчет количества дней с температурой выше средненедельной
for i := 0 to 23 do
begin
if t[i] > avg then
daysAboveAverage := daysAboveAverage + 1;
end;

writeln('Количество дней, где температура была выше средненедельной: ', daysAboveAverage);

end.