Технический форум - Показать сообщение отдельно - Помогите,пожалуйста, написать программу на Pascal. Работа с массивами

Pian1st · 24.12.2009, 01:11

и по ходу надо if temp[i]>=0 then k_r:=k_r+kol[i];
if temp[i]<0 then k_s:=k_s+kol[i];
поменять на if temp[i]>=0 then inc(k_r);
if temp[i]<0 then inc(k_s);
потому что находим количество осадков а не сумму

24.12.2009, 01:11	#10 (permalink)
Pian1st Новичок Регистрация: 23.12.2009 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	и по ходу надо if temp[i]>=0 then k_r:=k_r+kol[i]; if temp[i]<0 then k_s:=k_s+kol[i]; поменять на if temp[i]>=0 then inc(k_r); if temp[i]<0 then inc(k_s); потому что находим количество осадков а не сумму

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070