{* Задача56 *}

REM basic

' Дан целочисленный массив из 30 элементов. Элементы массива
' могут принимать любые целые значения. Составьте, которая находит и выводит номер элемента
' массива, наименее отличающегося от среднего арифметического всех его элементов.


{N=30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim k As Integer
}{Dim s As Single
}{Dim min As Single
}{For i=1 To N
}{input a(i)
}{Next i
}{...
}{End
}N = 30
Dim a(1 To N) As Integer
Dim i As Integer
Dim k As Integer
Dim s As Single
Dim min As Single
For i = 1 To N
INPUT a(i)
Next i
s = 0
For i = 1 To N
s = s + a(i)
Next i
s = s / N
k = 1
For i = 2 To N
If ABS(a(i) - s) < ABS(a(k) - s) Then
k = i
End If
Next i
PRINT k
End