Question

В классе 26 учеников, вес учащихся от 55 до 85 кг, отсортируйте в порядке убывания веса найти средний вес ученика. Помогите пожалуйста !!! pascal

Answer 1

PascalABC.NET 3.4

begin
  var a := ArrRandom(26, 55, 85); a.Println;
  Writeln('По убыванию:'); a.OrderByDescending(t->t).Println;
  Writeln('Средний вес = ',a.Average:0:2)
end.