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

Вопрос школьника по предмету Информатика

На соревнованиях выступление спортсмена оценивают 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.

Пример:

1 2 3 4 5

1 5

3.00