Arrays irgend wo fehler in den codes

Computer: Software & Programmierung .NET & C#
#1

Hallo Leute, ich soll folgende aufgaben lösen.
schreiben sie ein Programm das die obenstehende Temperaturstatistik ausgibt. das habe ich soweit fertig nur fehlt mir das Wort MONAT über 1-12. Find einfach nicht herraus wo ich das schreiben muss hier mal der code
Dim orte() As String = {„Berlin“, „Hamburg“, „München“}

Dim temperaturen(,) = {{2, 3, 1}, {3, 6, 4}, {6, 8, 10} _
, {10, 12, 13}, {14, 15, 15}, {19, 18, 19} _
, {18, 16, 20}, {23, 24, 25}, {25, 22, 22} _
, {15, 14, 15}, {10, 11, 13}, {9, 8, 7}}

Sub Main()

Ausgabe()

End Sub

Sub Ausgabe()

Dim i As Integer
Dim e As Integer

Dim ort As String

For Each ort In orte
Write(vbTab + ort)
Next

WriteLine("")

For i = 1 To 12

Write(i)

For e = 0 To 2
Write(vbTab + temperaturen(i - 1, e).ToString())
Next

WriteLine("")

Und würde gerne wissen.wie ich den grössten Wert innerhalb eines Array ermitteln kann…
z.B:

Dim ac() As Byte = {5,125,16,220,11,7,88}

->Mit welcher Anweisung ermittel ich den grössten dieser Werte (220)

#2

Hallo,

Write("Monat")

schreibst Du vor die Zeile

For Each ort In orte

Maximalwert Deines Arrays:

Dim acEinzelwert as Integer
Dim maxWert as integer

For each acEinzelwert in ac
 maxWert = Math.Max(maxWert, acEinzelwert)
End For

Gruß
Thomas