Написать программу, которая позволила бы по 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д