Question

Разработайте программу по подсчету очков для конкурса пения в школе, если всего в оценке конкурсантов участвует 10 судей. Программа должна автоматически выставлять оценку - среднего арифметического самого высокого и самого низкого баллов из выставленных судьями.

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

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

begin

 var a := ReadSeqReal(10).Sorted.ToArray;

 Writeln((a[0] + a[9]) / 2)

end.

Пример

8.2 9.0 8.4 9.2 8.5 9.2 9.0 8.9 9.1 9.0

8.7

Вариант без сортировки

begin

 var a := ReadSeqReal(10).ToArray;

 Writeln((a.Max + a.Min) / 2)

end.