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

1

Ответы и объяснения

Лучший Ответ!
  • ali07
  • главный мозг
2011-11-20T17:23:51+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.