Thao tac tren mang mot chieu

**Admin** Sat Jan 15, 2011 1:20 am

Code:: Imports System.Console Module Module1 Sub nhap(ByRef a() As Integer, ByVal n As Integer) Dim s As String For i = 0 To n - 1 Write("Nhap phan tu thu[" & CStr(i) & "]: ") s = ReadLine() a(i) = Integer.Parse(s) Next End Sub Sub xuat(ByVal a() As Integer, ByVal n As Integer) For i = 0 To n - 1 Write(a(i) & " ") Next End Sub Function tongmang(ByVal a() As Integer, ByVal n As Integer) As Integer Dim tong As Integer = 0 For i = 0 To n - 1 tong = tong + a(i) Next Return tong End Function Sub sort(ByVal a() As Integer, ByVal n As Integer) For i = 1 To n - 1 Step 1 For j = n - 1 To i Step -1 If (a(j - 1) > a(j)) Then Dim tmp As Integer tmp = a(j - 1) a(j - 1) = a(j) a(j) = tmp End If Next Next End Sub Sub Main() Dim a(30) As Integer Dim n As Integer Write("Nhap so phan tu cua mang: ") n = ReadLine() nhap(a, n) xuat(a, n) WriteLine() WriteLine(CStr(tongmang(a, n))) sort(a, n) xuat(a, n) ReadKey() End Sub End Module