VBScript code in QTP to create an array with five elements to store a student five subject marks and display minimum marks

Option explicit

Dim subject(4), i, min

For i=0 to 4 step 1

     subject(i)=inputbox("Enter marks :")

Next

min=subject(0)

For i=0 to 4 step 1

     If min>subject(i) Then

        min=subject(i)

     End If

Next

msgbox("Maximum marks : "&min)