Arhangel | Дата: Среда, 11.05.2011, 20:02 | Сообщение # 1 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| Имеется информация о количестве осадков, выпавших за каждый день месяца, и о температуре воздуха в эти дни. Определить, какое количество осадков выпало в виде снега и какое — в виде дождя. (Считать, что идет дождь, если температура воздуха выше 0)
|
|
| |
mel | Дата: Четверг, 12.05.2011, 09:39 | Сообщение # 2 |
Сержант
Группа: Заблокированные
Сообщений: 8
[ 0 ]
Статус: Offline
| Стучите, реализую 648964446
|
|
| |
KOT_B_MEIIIKE | Дата: Четверг, 12.05.2011, 21:05 | Сообщение # 3 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| program monthsta; label err; var stat:array [1..31,1..2] of integer; var i,n,dozhd,sneg:integer; begin err:writeln('Skolko dnei velosi nabludenie:');{chtobi ne 31 znach vvodit'} read(n); if (n<1) or (n>31) then begin writeln('nekorrektnoe chislo dnei');goto err end; writeln('Vvodite dannie v formate temp,osadki'); for i:=1 to n do begin read(stat[i,1],stat[i,2]); if stat[i,1]>=0 then dozhd:=dozhd+stat[i,2] else sneg:=sneg+stat[i,2]; end; writeln('dozhdya vipalo ',dozhd,' mm, snega ',sneg,' mm'); end. http://files.mail.ru/KOYCUD - чтобы не перебивать вручную
|
|
| |