Помогите решить задачу

[flickcs]

Дан одномерный массив А размерности N. Найти элемент наиболее близкий к среднему значению массива. Помогите максимально просто без лишних строк кода решить это задание.

[сфинкс]

Sub Sred()

N = 5: Dim a(500): s = 0: q$ = " ": Dim Sred
For i = 1 To N
a(i) = Int(Rnd * 88) + 10
s = s + a(i)
q$ = q$ + Str$(a(i))
Next i

Sred = s / N
bliz = 10 ^ 6
m = 1

For i = 1 To N
okolo = Abs(a(i) - Sred)
If okolo < bliz Then bliz = okolo: m = i
Next i

MsgBox q$ & Chr(10) & Str$(Sred) & Chr(10) & Str$(bliz) & Chr(10) & Str$(m)
End Sub

Результаты:

28 26 61 17 50
36.4
8.4
1

14 31 96 15 44
40
4
5


Что означают результаты думаем сами
и сообщение результатов улучшаем сами