Imports System

Imports System.Collections

Public Module Module1

    Public Sub Main()

        Dim numeros As New ArrayList

        Dim maiorNumero As Integer = 0

        Dim total As Integer = 0

        numeros.Add(10)

        numeros.Add(100)

        numeros.Add(25)

        For Each numero As Integer In numeros

        total += numero

        maiorNumero = Math.Max(maiorNumero, numero)

    Next

    Dim media As Integer = total / numeros.Count

​

    Console.WriteLine(maiorNumero)

    Console.WriteLine(media)

    End Sub

End Module