Public Class Form1
    Dim X(k) As Integer
    Dim i As Byte
    Dim n, k As Integer
    Dim Z As Single
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        k = Val(InputBox("Введите количество результатов социологического опроса", "Ввод данных"))
        Z = 0
        n = 0
        For i = 1 To k
            X(i) = InputBox("Введите " & i & " элемент массива", "Заполнение массива")
            ListBox1.Items.Add(X(i))
            Z = Z + X(i)
            Z = Z / k
            If Asc((Z - X(i)) / Z) < 0.1 Then
                n = n + 1
            End If
        Next i
        MessageBox.Show("Количество отклоняющихся результатов - " & n)
    End Sub
End Class