Пятница, 10.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Оценка за выступление спортсмена:определить ту оценку, котор
HaidukДата: Воскресенье, 19.10.2008, 04:00 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
В некоторых видах спортивных состязаний выступление каждого спортсмена независимо оценивается несколькими судьями, затем из всей совокупности оценок удаляется наиболее высокая и наиболее низкая, а для оставшихся оценок вычисляется среднее арифметическое, которое и идет в зачет спортсмену. Если наиболее высокую оценку выставили несколько судей, то из совокупности оценок удаляется только одна такая оценка, аналогично поступают с наиболее низкими оценками.

Дано: натуральное n > 2, действительные положительные a1, ..., an. Считая, что числа a1, ..., an — это оценки, выставленные судьями одному из участников соревнований, определить ту оценку, которая пойдет в зачет этому спортсмену.

Формат входных данных:
С клавиатуры в первой строке вводится натуральное число N (2 < N < 100), во второй строке через пробел вводятся N действительных чисел a1, ..., an.

Формат выходных данных:
Вывести на экран действительное число с двумя знаками после запятой – оценку, которая пойдет в зачет спортсмену.

 
AlexanderДата: Воскресенье, 19.10.2008, 04:50 | Сообщение # 2
Всевышний
Группа: Модераторы
Сообщений: 475
Репутация: 16
Замечания: 0%
Статус: Offline
Алгоритм такой:
Code
Sum:=Arr[1];
Min:=1;
Max:=1;
For i:=2 to n do
    begin
       Inc(Sum,Arr[i]);
       if Arr[i]>Arr[Max] then
          Max:=i
       else if Arr[i]<Arr[Min] then
          Min:=i;
    end;
Sum:=(Sum-Arr[Min]-Arr[Max])/(n-2);


Скажем дружно- нафиг нужно!
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;