Question

Написать программу,которая находит на массиве из 10 элеменотов заполненное числами от 1 до 100 количество элементов меньше среднего значения этого массива

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018

// Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(10,1,100); mas.Println;

  var x:=mas.Average; 

  Writeln('количество элементов меньше среднего=',mas.Where(t->t < x).count);

end.