Задача А. Соревнование. В некоторых видах спортивных состязаний выступление каждого спортсмена независимо оценивается несколькими судьями, затем из всей совокупности оценок удаляется наиболее высокая и наиболее низкая, а для оставшихся оценок вычисляется среднее арифметическое, которое и идет в зачет спортсмену. Если наиболее высокую оценку выставили несколько судей, то из совокупности оценок удаляется только одна такая оценка, аналогично поступают и с наиболее низкой оценкой. Дано: натуральное n>4, действительные положительные числа а1, а2, …аn. Считая, что числа a1, а2, аn - это оценки, выставленные судьями одному из участников соревнований, определить ту оценку, которая пойдет в зачет этому спортсмену (с точностью 2 знака после запятой Формат входных данных Вводится натуральные числа m (m<100) количество спортсменов и n (n<100) количество судей и выставленных оценок. Далее идут фамилии спортсменов и выставленные оценки (a1, а2, аn не большее 1000). Формат результата Выводится m фамилий спортсменов и оценки, которые пойдут в зачет этим спортсменам. Примеры Входные данные Результат работы 6 10 7 8 10 4 5 10 4 8 5 6 7 8 10 5 5 4 8 1 2 3 8 8 8 8 9 9 9 9 6 7 7 7 7 7 5 5 5 6 6 6 8 8 8 10 2 5 8 9 6 10 4 7 8 4 5 6 1 0 2 3 10 6.62 5.25 8.25 6.12 7.75 5.88 6 5 7 8 10 4 5 7 8 10 5 5 8 8 9 9 9 7 7 7 5 5 8 10 2 5 8 4 7 8 4 5 6.67 6.67 8.67 6.33 7.00 5.33
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сам решил, но не уверен в правильности
Автор: ganzashop
Дано натуральное число. Определить будет ли это число: чётным, кратным 10. Питон
Автор: ecocheminnov437
1)
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.
2)
var x:longint;
begin
readln(x);
if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);
end.
3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.
var a:array[1..50] of integer;
var i:integer;
begin
for i:=1 to 50 do a[i]:=i;
for i:=1 to 50 do writeln(a[i]);
end.