Developing.ru

Составить программу в ПАСКАЛЕ и блок-схему к ней!!!
Известна температура каждого дня апреля. Определить самую тёплую декаду (в апреле 3 декады по 10 дней), указав её среднюю температуру. Учесть, что таких декад может быть несколько. Для каждой из самых тёплых декад определить среднюю температуру.

temp - массив температур, 30 элементов, ave - массив средних температур декад, 3 элемента
for i:=1 to 30 do
ave[1+(i-1) div 10]:=ave[1+(i-1) div 10]+temp;
for i:=1 to 3 do
ave:=ave/10;
Далее найти максимум в ave.
>> Для каждой из самых тёплых декад определить среднюю температуру.
Она по определению у них у всех одинаковая