Question

Паскаль. помогите пожалуйста. 40 баллов

Answer 1

Var
  n, cnt, sum, i, t: integer;
begin
  read(n);
  cnt := 0;
  sum := 0;
  for i := 1 to n do
  begin
    read(t);
    if t > 0 then
    begin
      inc(cnt);
      sum := sum + t;
    end;
  end;
  writeln(sum / cnt : 0 : 1);
  write(cnt);
end.