Предмет: Информатика,
автор: Yarikslabik
В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня недели (Числа вводятся с клавиатуры). Определите среднюю температуру воздуха за всю неделю. Выясните, сколько раз в неделю температура была выше нуля.
Программа на паскале.
Ответы
Автор ответа:
7
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.
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.
Интересные вопросы
Предмет: Физика,
автор: robloxweek
Предмет: География,
автор: asavrasova53
Предмет: Алгебра,
автор: klychevboy
Предмет: Литература,
автор: zazerta
Предмет: Химия,
автор: Alicelovely