Написать программу для ПаскальНайдите среднюю температуру для дней, когда температура поднималась выше 0 градусов, и определите количество таких дней. Программа получает на входе количество дней, в течение которых проводилось н...

Написать программу для Паскаль Найдите среднюю температуру для дней, когда температура поднималась выше 0 градусов, и определите количество таких дней. Программа получает на входе количество дней, в течение которых проводилось наблюдение, затем для каждого дня вводится температура. 
Гость
Ответ(ы) на вопрос:
Гость
var   m, k, d1: single;   i, t, d: byte; begin   readln(t);   writeln();   for i := 1 to t do   begin     readln(k);     if (k > 0) then     begin       d1 += k;       d  += 1;     end;   end;   writeln(d1 / d); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы