Question

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

Answer 1

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

begin
  var a:=ArrRandom(26,55,85); a.Println;
  a.OrderByDescending(t->t).Println;
  Writeln('Средний вес ученика ',a.Average:0:1)
end.

Пример
83 69 65 63 57 57 78 76 82 81 56 61 64 82 77 82 81 65 79 63 65 67 73 82 65 74
83 82 82 82 82 81 81 79 78 77 76 74 73 69 67 65 65 65 65 64 63 63 61 57 57 56
Средний вес ученика 71.0