Question

масса каждого из 25 человек хранится в массиве людей, имеющих массу более 100 кг будем условно называть полными (известно,что есть по меньшей мере один такой человек). Определите среднюю массу полных людей, и среднюю массу остальных людей

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627 (27.01.2018)

begin
  var l:=ArrRandom(25,50,150); l.Println;
  Writeln('Среднее полных->  ',l.Where(t->t>=100).Average:0:4);
  Writeln('Среднее остальных->  ',l.Where(t->t<100).Average:0:4);
end.

Пример:
55 108 131 58 141 62 102 56 118 78 128 114 110 66 134 74 71 56 103 126 76 133 118 99 101
Среднее полных->  119.0714
Среднее остальных->  68.2727

Answer 2

большое спасибо