Помогите плиз составить задачу) в массиве хранится информация…

Question

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

Answer 1

53

splash

20 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: