Написать программу для ПаскальНайдите среднюю температуру для дней, когда температура...

Question

Написать программу для Паскаль

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

Answer 1

var
  m, k, d1: single;
  i, t, d: byte;

begin
  readln(t);
  writeln();
  for i := 1 to t do
  begin
    readln(k);
    if (k > 0) then
    begin
      d1 += k;
      d  += 1;
    end;
  end;
  writeln(d1 / d);
end.