Вопрос от посетителя:
помогите плиз составить задачу )))в массиве хранится информация о среднедневной температуре декабря. составьте программу, которая подсчитает, сколько в декабре было дней с нулевой, отрицательной и положительной температурой
Илюха отвечает:
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);
readln
end.