1.Напишите программу для решения задачи с использованием линейного массива: Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите среднюю температуру для дней, когда температура поднималась выше нуля градусов. Определите количество таких дней. Гарантируется, что за время наблюдения хотя бы в один из дней температура поднималась выше нуля градусов. Программа получает на вход количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31), затем для каждого дня вводится температура.

Вопрос школьника по предмету Информатика

1.Напишите программу для решения задачи с использованием линейного массива:

Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите среднюю температуру для дней, когда температура поднималась выше нуля градусов. Определите количество таких дней. Гарантируется, что за время наблюдения хотя бы в один из дней температура поднималась выше нуля градусов.
Программа получает на вход количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31), затем для каждого дня вводится температура.

Ответ учителя по предмету Информатика

Ответ:

Var n,S,k,t:integer;

Begin

S:=0;

k:=0;

Read(n);

For n:= 1 to n do

   Begin

   Read(t);

   if t > 0 then

      Begin

      S:=S+t;

      k:=k+1;

      End;

   End;

WriteLn(‘k = ‘,k);

Write(‘Sr = ‘,S/k)

End.

Подробнее — на Znanija.com — https://znanija.com/task/24688454#readmore

Объяснение: