Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1382 от 06.02.2017
// Внимание! Если программа не работает, обновите версию!

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