Дано 31 число - значения температуры воздуха в марте. Числа могут принимать значения от (–20) до 20. Опишите на одном из языков программирования алгоритм, который подсчитывает и выводит среднюю температуру по всем дням, когда была оттепель (температура поднималась выше нуля). Гарантируется, что хотя бы один день в марте была оттепель.
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ ДАМ 27 БАЛЛОВ + ЛУЧШИЙ ОТВЕТ

const n = 31;

var i,c:integer;

td:array[1..n]of real;

sr:real;

begin

for i:=1 to n do begin

  readln(td[i]);

  if td[i]>0 then begin 

    sr:=sr+td[i];

    c:=c+1;

  end;

end;

writeln('Средняя температура в оттепель:',sr/c)

end.