• Home
 · 
• Math/Dates
 · 
• Finding Biggest Among n Numbers

Finding Biggest Among n Numbers

Finding Biggest Among n Numbers

API Declarations


Dim a(50) As Integer
Dim big As Integer



Rate Finding Biggest Among n Numbers

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

n=Inputbox("Enter the Number of Terms:")
For i=1 To n 
a(i)=Inputbox("Enter the numbers one-by-one:")
Next i
big=a(0)
For j=1 To n
If big>a(i) Then big=a(i)
Next
Msgbox "Biggest is " & big
End Sub