valeskez
Опубликовано 6 лет назад по предмету Информатика от valeskez


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

  1. Ответ
    Ответ дан ali07

    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.

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц