дан массив. найти количество элементов, значение которых больше среднего арифметическогоqbasic

CLS
DIM n AS INTEGER
INPUT "n=", n
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
s = 0
FOR i = 1 TO n
   a(i) = 101 * RND - 50
   PRINT a(i);
   s = s + a(i)
NEXT i
PRINT
m = s / n
k = 0
FOR i = 1 TO n
   IF a(i) > m THEN k = k + 1
NEXT i
PRINT "k="; k


n=15
-13  17  43 -39 -20 -13 -5  32  12 -10  22 -24  31  6 -19
k= 7