Question

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

Answer 1

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.

Пример:
1 2 3 4 5
1 5
3.00