Разработайте программу по подсчету очков для конкурса пения в школе, если всего в оценке конкурсантов участвует 10 судей. программа должна автоматически выставлять оценку - среднего арифметического самого высокого и самого низкого из выставленных судьями.
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.08.7Вариант без сортировки
begin
var a := ReadSeqReal(10).ToArray;
Writeln((a.Max + a.Min) / 2)
end.