10-12-2009, 11:34 PM
|
| Toddler | | Join Date: Oct 2007 Location: Mumtaaz Abad Multan Age: 34
Posts: 22
Class Roll Number: 07-06 | |
Finding Minimum element in two dimensional array Finding Minimum element in two dimensional array Code:
Module Matmin
Sub Main()
Dim i, j, min As Integer
Dim Matrix1 As Integer(,) = New Integer(2, 3) {}
Dim Matrix2 As Integer(,) = New Integer(2, 3) {}
For i = 0 To 1
For j = 0 To 2
Console.Write("Enter an element")
Matrix1(i, j) = Console.ReadLine
Next
Next
Console.Write("Minimum element of Matrix 1 is " & vbCrLf)
min = Matrix1(0, 0)
For i = 0 To 1
For j = 0 To 2
If Matrix1(i, j) < min Then
min = Matrix1(i, j)
End If
Next
Next
Console.Write(min)
End Sub
End Module |