Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Рост 25 учеников класса представлен в виде массива. Определить количество учеников , рост которых больше среднего роста по классу.
решить в PascalABC

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  //var n:=ReadInteger(Количество элементов в массиве: );
  var a:=ArrRandom(25,155,172).Println(,);
  Write(Рост учеников больше среднего: );
  var sr:=a.Average;
  a.Where(x->x>sr).OrderBy(x->x).PrintLn(,)
end.

Тестовое решение:
161,162,168,163,170,165,163,156,161,162,158,169,165,159,161,170,162,172,155,161,159,156,155,172,162
Рост учеников больше среднего: 163,163,165,165,168,169,170,170,172,172