Source Code



Find The Maximun, Minimum and Average by Array Season II

  • M. Taufik
  • Mar 20' 14
  • VB.NET
  • 391
  • 65
  • United States

Modul Array2

Sub main()

        Dim number(), limit, num As Integer

        Console.Write("Input The Count of Number: ")
        limit = Console.ReadLine
        ReDim number(limit - 1)
        Console.WriteLine()

        For i As Integer = 0 To limit - 1
            num = i + 1
            Console.Write("Input Number of  " & num & ": ")
            number(i) = Console.ReadLine()
        Next

        Console.WriteLine()
        Console.WriteLine("The Maximum Number is {0}", number.Max)
        Console.WriteLine("The Minimum Number is {0}", number.Min)
        Console.WriteLine("The Average is {0:f}", number.Average)

    End Sub

End Module
  • Tags :
comments powered by Disqus

Related Code

Find The Maximun, Minimum and Average by Array

Know the number of odd or even !

Check two files are equal

Define binary type

Coloring Cells in a DBGrid

Coloring Cells in a StringGrid

Disable the Close X button on a Form

Activating the Start Menu by Code

Chart Line Using Morris

PHP vulnerability Scan Script



Category