В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня недели (Числа вводятся с клавиатуры). Определите среднюю температуру воздуха за всю неделю. Выясните, сколько раз в неделю температура была выше нуля.

Программа на паскале.

Question

Информатика

Феодор

27 сентября, 07:12

В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня недели (Числа вводятся с клавиатуры). Определите среднюю температуру воздуха за всю неделю. Выясните, сколько раз в неделю температура была выше нуля.

Программа на паскале.

+3

Ответы (1)

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

Поляна · Answer 1

Var a, k, i:integer;

s:real;

begin

s:=0;

k:=0;

for i:=1 to 7 do

begin

readln (a) ;

s:=s+a;

if a>0 then

inc (k) ; / / сколько раз в неделю температура была выше нуля

end;

s:=s/7; //средняя температура.

end.