Синоптики измеряют температуру воздуха ежедневно в течение 4 недель и записывают

Синоптики определяют температуру воздуха повседневно в течение 4 недель и записывают результаты измерений в таблицу.
-12
-16
-26
-20
-16
-18
-25
-26
-29
-32
-23
-30
-21
-23
-15
-16
-20
-23
-35
-15
-16
-10
-38
-26
-27
Отыскать количество дней, когда температура была выше средней
Отыскать самый теплый денек.
Написать программки Паскаль abc
ПОЖАЛУЙСТА))))))!!!!!!