На 3 задание ответьте)

begin
  var c:=ArrRandom(ReadInteger('k='),1,99); c.Println;
  var m:=c.Average;
  Writeln('Среднее арфифметическое равно ',m);
  Writeln('Кол-во элементов, больших ср.арифм: ',c.Where(x->x>m).Count)
end.


k= 15
74 9 96 97 77 41 51 29 24 26 27 53 5 25 76
Среднее арфифметическое равно 47.3333333333333
Кол-во элементов, больших ср.арифм: 7