Составить программу подсчитывающую сколько дней в январе было с температурой выше, ниже и равной средней температуре месяца

Допустим, что у нас имеется некоторая статистика, которая отражает изменение температуры в январе.

Обычно для показателя температуры используется целое число.

Значит, мы создадим массив целого типа и поместим туда значения температуры.

Дней в январе 31, значит, длина массива должна быть такой же.

temperature : array [1 ... 31] of integer;

Далее заполняем его некоторыми значениями.

Нам нужно узнать три показателя.

for i:integer : = 1 to 31 do

if (temperature[i] > sred) then

bolsh : = bolsh + 1;

if (temperature[i] < sred) then

mensh : = mensh + 1;

if (temperature[i] = sred) then

ravn : = ravn + 1;