Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function

' объявление переменных
Dim N As Integer
Dim Arr() As Double
Dim I As Integer
Dim isOddCount As Integer = 0
Dim divThreeCount As Integer = 0
Dim divThreeSumm As Integer = 0
Dim outString As String
Dim vbCrLf As String = Chr(13) + Chr(10) ' для перехода на новую строку

Input "N=", N
ReDim Arr(N)

' заполним массивчик случайными числами и сразу посчитаем что нам там нужно
Randomize()
outString = ""
For I = 0 To N-1
    Arr(I) = Rand(0, 100)
    outString = outString + " " + Str(Arr(I))

    If (Arr(I) mod 3 = 0) Then
        divThreeSumm = divThreeSumm + Arr(I)
        divThreeCount = divThreeCount + 1
    End If

    If (Arr(I) mod 2 <> 0) Then
        isOddCount = isOddCount + 1
    End If
Next I

' выведем сгенеренный массив на экран
Print "Original array:"
Print outString

' увеличим массив на 2 элемента для записи в них результата
N = N + 2
ReDim Preserve Arr(N)
Arr(N - 2) = divThreeSumm / divThreeCount ' ср. арифм чисел, делящихся на 3
Arr(N - 1) = isOddCount ' кол-во нечетных

' выведем новый массив на экран
Print  vbCrLf + vbCrLf + "New Array:"
outString = ""
For I = 0 To N - 1
    outString = outString + " " + Str(Arr(I))
Next I
Print(outString)

Input N