Написать программу, которая позволила бы по 10 оценкам судей автоматически выставлять итоговую оценку спортсмену - Turbo Pascal
Формулировка задачи:
2. В соревнованиях итоговая оценка определяется так: самая наибольшая и самая наименьшая оценки из общей суммы удаляются (если таких оценок несколько, то удаляется только одна), затем среди оставшихся подсчитывается среднее арифметическое. Написать программу, которая позволила бы по 10 оценкам судей автоматически выставлять итоговую оценку спортсмену
Решение задачи: «Написать программу, которая позволила бы по 10 оценкам судей автоматически выставлять итоговую оценку спортсмену»
textual
Листинг программы
var
ball, res, min, max: real;
i: integer;
begin
writeln ('Введите 10 оценок:');
write('Оценка 1: ');
readln(res);
min := res;
max := res;
for i := 2 to 10 do
begin
write('Оценка ', i, ': ');
readln(ball);
res := res + ball;
if ball < min
then min := ball
else if ball > max
then max := ball
end;
res := (res - min - max) / 8;
writeln('Средний балл = ', res :0:5);
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д