Разработайте программу по подсчету очков для конкурса пения в школе, если

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

Задать свой вопрос
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.

Переудина Елизавета
Это вероятно сделать как-то проще?
Валентина Трелина
Проще двух строк? В смысле, в одну? Могу написать и в одну, но будет ужаснее смотреться.
Антонина Бещшарова
Нет, я имел в виду, что такое еще не проходил. Иным методом вероятно решить?
Лидия Мамосова
Методов 10-ки. Но идеи читать я не умею, откуда мне знать, кто что "проходил"... и прошел мимо этого?
Мамаджанян Ярослава
Уровень 9 класса.
Славян Шварцблит
Не хочу повторяться, почитайте ВСЕ комменты к ответу вот тут: https://znanija.com/task/30633103
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт