Вычислить порядковый номер числа, наиболее приближённого к среднему арифметическому - VB

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

Помогите решить задачки 1."Одномерные массивы": Задана последовательность из N вещественных чисел. Вычислить порядковый номер числа, наиболее приближённого к среднему арифметическому максимального и минимального чисел данной последовательности. 2."Двумерные массивы": Дан двухмерный массив А[1...m,1...N]. Написать программу построения одномерного массива B[1...m], элементы которого соответственно равны наименьшим из средних арифметических элементов строк.

Решение задачи: «Вычислить порядковый номер числа, наиболее приближённого к среднему арифметическому»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim arr() As Single, N As Integer, S As Single, diff As Integer, answer
N = InputBox("n")
ReDim arr(1 To N)
answer = ""
For i = 1 To N
arr(i) = Int(100 * Rnd - 50)
answer = answer & arr(i) & " "
S = S + arr(i)
Next i
S = S / N
MsgBox "SR=" & S
MsgBox "arr : " & answer
diff = Abs(arr(1) - S)
answer = ""
For i = 1 To N
If Abs(arr(i) - S) < diff And Abs(arr(i) - S) <> 0 Then
diff = Abs(arr(i) - S)
answer = i
End If
Next i
MsgBox answer
End Sub
                        