На соревнованиях выступление спортсмена оценивают 5 экспертов, каждый из них выставляет оценку в баллах (целое число). Для получения итоговой оценки лучшая и худшая из оценок экспертов отбрасываются, а для оставшихся трёх находится среднее арифметическое. Напишите программу, которая принимает 5 оценок экспертов и возвращает итоговую оценку спортсмена. Используйте функцию для вычисления итоговой оценки.

Входные данные
Входная строка содержит 5 неотрицательных целых чисел, разделённых пробелами.

Выходные данные
Программа должна вывести в первой строке отброшенные оценки экспертов (минимальную, затем максимальную), разделив их пробелами. Во второй строке выводится одно вещественное число: итоговая оценка с двумя знаками в дробной части. Pascal

О, спс))

странно но не работает(

Хоть один тест прошло? Или вообще не компилируется?

1 тест)

скоро там?))

А теперь объясните смысл такой подготовки подобным образом: Вы сюда помещаете задания, их тут решают, вы их там зачитываете себе. Что это дает? Самообман или Вы кого-то еще пытаетесь обмануть?

Решение всех подобных задач уже приведено в инструктивных материалах для проверяющих ЕГЭ, которые каждый год помещаются на соответствующий сайт, легко находящийся по поиску.

Обмануть учителя разумеется. Образование в стране катится в з*****у. Я Готовлюсь к егэ по физике и какого то черта должен учителю решать чертову дистанционку. И делать рефераты по истории. У меня с такими темпами вообще на физику времени не остается. ЗАто я решаю дистанционки и пишу реферат по всяким гуманитариям. Министра образования на кол. Все что я могу сказать. Я вынужден тут бегать и выискивать ответы

Я тоже могу сказать только одно: оказание Вам помощи в обмане учителя не входит в задачу данного Сервиса.

Но входит решение, а уж для чего оно мне нужно, если это не какой-то конкурс уже значения не имеет.

VarA:array of integer;i:integer;Function Free(A:array of integer):real;Var i:integer;BeginFor i:= 2 to 5 do if A[i]<A[A[0]] then A[0]:=i;For i:= 1 to 4 do if A[i]>A[A[6]] then A[6]:=i;WriteLn(A[A[0]],' ',A[A[6]]);For i:= 1 to 5 do if (i<>A[0])and(i<>A[6]) then Free:=Free+A[i];WriteLn((Free/3):0:2)End;BeginSetLength(A,7);For i:= 1 to 5 do Read(A[i]);A[0]:=1;A[6]:=5;Free(A);End.

const  n=5;type  Mas=array[1..n] of integer;var  max,min:integer;  function Avg(a:Mas):real;var  i:integer;  s:real;begin  max:=a[1]; min:=max; s:=max;  for i:=2 to n do begin    s:=s+a[i];    if a[i]>max then max:=a[i]    else      if a[i]<min then min:=a[i]  end;  Avg:=(s-min-max)/3end;var  m:Mas;  i:integer;  p:real;begin  for i:=1 to n do Read(m[i]);  p:=Avg(m);  Writeln(min,' ',max);  Writeln(p:4:2)end.Тестовое решение:8 9 7 5 85 97.67