Составить программу в ПАСКАЛЕ и блок-схему к ней!!!
Известна температура каждого дня апреля. Определить самую тёплую декаду (в апреле 3 декады по 10 дней), указав её среднюю температуру. Учесть, что таких декад может быть несколько. Для каждой из самых тёплых декад определить среднюю температуру.
Ооочень нужно!!! помогите умоляю)
-
PascalDelp
- Сообщения: 15
- Зарегистрирован: 05 янв 2011, 02:52
- Контактная информация:
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.
>> Для каждой из самых тёплых декад определить среднюю температуру.
Она по определению у них у всех одинаковая
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.
>> Для каждой из самых тёплых декад определить среднюю температуру.
Она по определению у них у всех одинаковая
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.