Question

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

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

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

Answer 1

Var
A:array of integer;
i:integer;

Function Free(A:array of integer):real;
Var i:integer;
Begin
For 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;

Begin
SetLength(A,7);
For i:= 1 to 5 do
 Read(A[i]);
A[0]:=1;
A[6]:=5;
Free(A);
End.

Answer 2

О, спс))

Answer 3

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

Answer 4

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

Answer 5

1 тест)

Answer 6

скоро там?))

Answer 7

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)/3
end;

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 8
5 9
7.67

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

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

Answer 12

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