Напишите программу для решения следующей задачи. Ученики 4 класса вели дневники...

Question

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

Comments

Паскаль?

Answer 1

PascalABC.NET 3.2:
begin
  var a := ReadArrInteger(ReadInteger('n =')).Where(x -> x > 0);
  print(a.Average, a.Count);
end.