var
  a: array of integer;
  n, i, k, s, c: integer;

begin
  writeln('Ââåäèòå ðàçìåð ìàññèâà: ');
  readln(n);
  setlength(a, n + 1);
  writeln('Ââåäèòå ýëåìåíòû ìàññèâà: ');
  for i := 1 to n do read(a[i]);
  writeln('Ââåäèòå C: ');
  readln(c);
  for i := 1 to n do
    if a[i] > c then begin s := s + a[i]; inc(k); end;
  write(s / k);
end.