Найти среднее арифметическое элементов последовательности превосходящих некоторое число с. размер произвольный. c вводится с экрана.

Var
  i,n,k:integer;
  t,s,c:real;
 
begin
  Write('c='); Read(c);
  Write('Количество чисел: '); Read(n);
  s:=0; k:=0;
  Write('Вводите: ');
  for i:=1 to n do begin
    Read(t);
    if t>c then begin
      s:=s+t;
      k:=k+1
      end
    end;
  if k>0 then Writeln('Среднее арифметическое: ',c/k)
  else Writeln('Нет чисел, превышающих ',c)
end.

Пример
c=18.5
Количество чисел: 10
Вводите: 12.4 15 8.6 -4.12 0 17.34 21 0.12 21.15 19
Среднее арифметическое: 6.16666666666667