|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.02.2009, 13:40 | #1 |
Пользователь
Регистрация: 29.01.2009
Сообщений: 60
|
помогите плз с задачей на массивы
В одномерном массиве хранится температура за Январь, найти среднее значение температуры за месяц, кол-во дней когда температура была выше среднего, максимальное и минимальное значение температуры и числа когда была максимальная температура, а когда минимальная! зарание спасибо!
|
04.02.2009, 13:42 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
И в чем трудности?
В цикле проходи.
I'm learning to live...
|
04.02.2009, 17:10 | #3 |
Заблокирован
Регистрация: 04.01.2009
Сообщений: 11
|
Прости не очень люблю массивы делать где они не нужны а пока вот:
var i,d_min,t_min,d_max,temp,t_max:inte ger; sum:real; begin sum:=0; read(temp); d_min:=1; t_min:=temp; d_max:=1; t_max:=temp; for i:=1 to 30 do begin if i=30 then readln(temp) else read(temp); sum:=sum+temp; if t_min>temp then begin t_min:=temp; d_min:=i; end; if t_max<temp then begin t_max:=temp; d_max:=i; end; end; sum:=sum/31; write('srednee=',sum:1:0); writeln(' maximal temp i den- ',t_max,' ',d_max,' minim temp i den- ',t_min,' ',d_min); readln end. |
04.02.2009, 18:54 | #4 |
Пользователь
Регистрация: 29.01.2009
Сообщений: 60
|
|
04.02.2009, 18:56 | #5 |
Пользователь
Регистрация: 29.01.2009
Сообщений: 60
|
|
04.02.2009, 19:32 | #6 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
держи:
Код:
|
04.02.2009, 20:10 | #7 |
Пользователь
Регистрация: 29.01.2009
Сообщений: 60
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите с задачей на 2хмерные массивы | eHappy | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 14.12.2008 11:27 |
помогите плз с задачей в Delphi | jellyfish | Помощь студентам | 1 | 09.05.2008 14:06 |
Паскаль, массивы, помогитеее плз | ProPaL | Помощь студентам | 13 | 16.12.2007 19:03 |
Помоги с задачей плз очень надо.Паскаль | menlo | Помощь студентам | 7 | 03.11.2007 16:40 |