Дан массив найдите среднее арифметическое всех чисел меньше заданного

Пишу на QBasic
CLS
INPUT N
...
Массив создан и заполнен
...
FOR I = 1 TO K (Кол-во элементов массива)
IF I < N THEN
  A=A+I
  B=B+1
END IF
NEXT I
C=A/B
PRINT C

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.