Question

В массиве хранится информация о среднедневной температуре декабря. Составьте программу, которая подсчитывает, сколько в декабре было дней с нулевой, отрицательной и положительной температурной. Pascal ABC

Answer 1

Может это поможет:  

Program TemperatureInDecember;  

Uses crt;  

Var tempDecember : array[1..31] of integer;  

i, countPlus, countZero, countMinus : integer;  

begin  

Clrscr;  

countPlus := 0;  

countZero := 0;  

countMinus := 0;  

for i:= 1 to 31 do  

begin  

if tempDecember = 0 then countZero += 1  

else if tempDecember > 0 then countPlus += 1  

else countMinus += 1;  

end;  

writeln('В декабре дней с нулевой температурой было: ', countZero);  

writeln('В декабре дней с отрицательной температурой было: ', countMinus);  

writeln('В декабре дней с положительной температурой было: ', countPlus);  

readln;  

end.  

 

Плохо отобразилось, вот скрин: