На соревнованиях выступление спортсмена оценивают 5 экспертов, каждый из них выставляет оценку в баллах (целое число). Для получ
ения итоговой оценки лучшая и худшая из оценок экспертов отбрасываются, а для оставшихся трёх находится среднее арифметическое. Напишите программу, которая принимает 5 оценок экспертов и возвращает итоговую оценку спортсмена. Используйте функцию для вычисления итоговой оценки. Входные данные Входная строка содержит 5 неотрицательных целых чисел, разделённых пробелами. Выходные данные Программа должна вывести в первой строке отброшенные оценки экспертов (минимальную, затем максимальную), разделив их пробелами. Во второй строке выводится одно вещественное число: итоговая оценка с двумя знаками в дробной части. Примеры входные данные 1 2 3 4 5 выходные данные 1 5 3.00
Function mark(a, b, c, d, e:integer;var max,min:integer):real; begin if a>b then max:=a else max:=b; if c>max then max:=c; if d>max then max:=d; if e>max then max:=e; if a<b then min:=a else min:=b; if c<min then min:=c; if d<min then min:=d; if e<min then min:=e; mark:=(a+b+c+d+e-max-min)/3; end; var a,b,c,d,e,min,max:integer; m:real; begin readln(a,b,c,d,e); m:=mark(a,b,c,d,e,max,min); writeln(min,' ',max); writeln(m:0:2); end.