Написать программу для Паскаль

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

Question

Информатика

Виташа

22 июля, 21:04

Написать программу для Паскаль

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

+4

Ответы (1)

Знаете ответ на вопрос?

Поликарпий · Answer 1

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.