Для оставшихся оценок вычислить среднее арифметическое и найти оценку спортсмена - QBasic

Формулировка задачи:

Дана задача: в соревнованиях по фигурному катанию N судей выставляют оценки. Из объявленных оценок в целях объективности удаляют самую высокую и самую низкую оценки. Для оставшихся оценок вычисляют среднее арифметическое. Найти оценку спортсмена. Я так написала программу, но чет подсчитав, она неверно подсчитывает среднее арифметическое,то есть эту оценку вот моя программа

INPUT n
RANDOMIZE TIMER
INPUT b,c
DIM a(n)
FOR i=1 TO n
a(i) = FIX(RND*(c-b)+b)
PRINT a(i)
NEXT i
q=1
w=1
e=0
FOR i=1 TO n
IF a(i) >= a(q) THEN
q=i
ELSE
IF a(i) <= a(w) THEN
w=i
END IF
END IF
e= e+ a(q) -a(w)
s=e / (n-2)
PRINT s

что нужно исправить в программе?

Решение задачи: «Для оставшихся оценок вычислить среднее арифметическое и найти оценку спортсмена»

textual
                            Листинг программы 
                        
                            rez=(s-max-min)/(N-2)

Оцени полезность:

14 голосов , оценка 4.214 из 5

Похожие ответы