Imports System
Public Module Module1
Dim Num() As Integer = {12,14,10,6,7,11,3}
Public Sub Main()
Dim Sum As Decimal = 0
Dim Average As Decimal = 0
For i = 0 To 6
Sum = Sum + Num(i)
Next
Average = Sum/7
Console.WriteLine(Average)
Console.ReadLine()
End Sub
End Module