Дан целочисленный массив из 31 элемента, элементы массива могут принимать значения от -20 до 20. Написать программу, которая выводит среднюю температуру среди дней, когда была оттепель.

var a,b,i:integer;n:real;mass:array[1..31] of integer;beginfor i:=1 to 31 do beginmass[i]:=random(40)-20;if mass[i]>0 then beginb:=b+1;a:=a+mass[i];end;end;writeln('Полученные значения');for i:=1 to 31 dowrite(mass[i]:4);n:=a/b;writeln;writeln('Средняя температура равна ',n:3:1);end.