Задание:
Помогите плиз составить задачу) в массиве хранится информация о среднедневной температуре декабря. Составьте программу, которая подсчитает, сколько вдекабре было дней с нулевой, отрицательной и положительной температурой
Решение:
program xxx; var i, m, p, n: integer; t: array[1… 31] of real; begin writeln ('введите температуру ') for i: =1 to 31 do readln (t[i]); m: =0; p: =0; n: =0; for i: =1 to 31 do begin if t[i]<0 then m: =m+1; if t[i]>0 then p: =p+1; if t[i]=0 then n: =n+1 end; writeln ('Дней с отрицательной температурой было — ', m); writeln ('Дней с положительной температурой было — ', р); writeln ('Дней с нулевой температурой было — ', n); readlnend.
Знаете другой ответ?