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.