06-12-2009, 04:56 PM
|
#1 |
| Grown up punk
Join Date: Oct 2007 Location: Muslim Town Multan
Posts: 196
Thanks: 20
Thanked 47 Times in 34 Posts
Contact Number: 0322-6196713 Program / Discipline: BSIT Class Roll Number: 07-22 Time Spent Online: 2 Days 16 Hours 43 Minutes 59 Seconds |  Q2:find maximum element in a matrix of 2x2
|  | | | Module MaxinMatrix
Sub Main()
Dim ar1 As Integer(,)
ar1 = New Integer(1, 1) {}
Dim i, j, max As Integer
For i = 0 To 1
For j = 0 To 1
ar1(i, j) = Console.ReadLine()
Next
Next
For i = 0 To 1
For j = 0 To 1
Console.Write(ar1(i, j) & vbTab)
Next
Console.Write(vbCrLf)
Next
max = 0
For i = 0 To 1
For j = 0 To 1
If max < ar1(i, j) Then
max = ar1(i, j)
End If
Next
Next
Console.WriteLine(max)
End Sub
End Module | | | | | | |
|
 |
Similar Threads 
shmsa
Linear Mode
