На вход программе подаётся 31 строка. Строки содержат информацию о дневных и ночных температурах декабря 2008 года. Формат каждой из строк следующий: сначала записана дата в виде dd (на запись номера дня в числовом формате отводится строго два символа), затем через пробел записаны значения дневной и ночной температур — числа со знаком плюс или минус. Даты вводятся в порядке возрастания. Требуется написать программу, которая будет выводить на экран информацию о периодах непрерывного повышения среднесуточной температуры. Найденные значения для каждого из периодов следует выводить в отдельной строке в виде: номер первого дня периода, номер последнего дня периода, значение среднесуточной температуры за период.
const N=31;
type day = record
d : integer;
s : real;
end;
var days : array[1..N] of day;
tl,t2,s : real;
i,k : integer;
begin
for i:=l to N do
begin
readln(days[i].d,tl,t2);
days[i].s:=(tl+t2)/2;
end;
i:=l;
while i < N do
begin
if days[i].s<days[i+1].s then
begin
s:=days [i].s;
k:=i;
repeat
i:=i+l;
s:=s+days[i].s;
if i=N then break;
until days[i].s>=days[i+1].s;
writeln (k,'-',i,s/(i-k+1));
end;
i:=i+l;
end;
end.