В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня

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

Задать свой вопрос
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 agt;0 then 
inc(k);//сколько раз в неделю температура была выше нуля
end;
s:=s/7;//средняя температура.
end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт