uses crt;
var
m, i, c, summa, num: integer;
t: array [1 .. 10000] of integer;
begin
clrscr;
writeln('Введите размер массива t(m)');
readln(m);
writeln('Введите число C');
readln(c);
writeln('Введите элементы массива t(m)');
FOR i := 1 TO m do
begin
readln(t[i]);
end;
FOR i := 1 TO m do
begin
IF t[i] > c THEN
begin
summa := summa + t[i];
num := num + 1;
end;
end;
writeln('Среднее арифметическое элементов больше C равно ', summa / num:7:2);
writeln('Количество элементов меньше С равно ', m - num);
end.