BeregnGennemsnit & Find største tal ??

Hvorfor ik' bare gør sådan her:
Dim tabel30(30), i, sum, gennemsnit, totalsum


sum = 0
Randomize

For i = 1 to 30
        tabel30(i) = Int(1 + Rnd*50)
        document.write tabel30(i) & ", "
        sum = sum+tabel30(i)
Next

document.write "<br>Summen er: " & sum & "<br>"
document.write "Gennemsnittet er: " & sum/30

-Mit eksempel er lavet i VBScript! -så udskift document med Response!
//>Rune

Her har du det med din funktion:
Dim tabel30(30), i, sum, gennemsnit, totalsum


sum = 0
Randomize

For i = 1 to 30
        tabel30(i) = Int(1 + Rnd*50)
        Response.Write tabel30(i) & ", "
        sum = sum+tabel30(i)
Next
Function Gennemsnit(ByRef sum)
    Response.Write("Gennemsnittet er " & sum/30)
End Function
Response.Write "<br>Summen er: " & sum & "<br>"
Call Gennemsnit(sum)

//>Rune

Tak for svarene, det virker jo fint, men jeg mangler stadig at finde det største tal i arrayet ??
(Også i en function)

Prøv med denne:

Dim tabel30(30), i, sum, gennemsnit, totalsum


sum = 0
Randomize

For i = 1 to 30
        tabel30(i) = Int(1 + Rnd*50)
        Response.Write tabel30(i) & ", "
        sum = sum+tabel30(i)
Next
ArrTabel30 = Split(tabel30,",")
For i = 0 To UBound(arrTabel30)
    If ArrTabel30(i) > strBiggest Then
        strBiggest = ArrTabel30(i)
    End If
Next

Function Gennemsnit(ByRef sum)
    Response.Write("Gennemsnittet er " & sum/30)
End Function
Response.Write("Det største er: " & strBiggest & "<br>)
Response.Write "<br>Summen er: " & sum & "<br>"
Call Gennemsnit(sum)

//>Rune

<%
Dim tabel30(30), i, sum, totalsum


sum = 0
Randomize

maks = 0
For i = 1 To 30
    tabel30(i) = Int(1 + Rnd * 50)
    If tabel30(i) > maks Then maks = tabel30(i)
    Response.Write tabel30(i) & ", "
    sum = sum + tabel30(i)
Next

Function Gennemsnit(ByRef sum)
    Response.Write("Gennemsnittet er " & sum/30)
End Function
Response.Write("<br>Det største er: " & maks & "<br>")
Response.Write("<br>Summen er: " & sum & "<br>")
Call Gennemsnit(sum)
%>

//>Rune

Her har du det hvor det oxo er en funktion!

<%
Dim tabel30(30), i, sum, totalsum
sum = 0
Randomize

maks = 0
For i = 1 To 30
    tabel30(i) = Int(1 + Rnd * 50)
    If tabel30(i) > maks Then maks = tabel30(i)
    Response.Write tabel30(i) & ", "
    sum = sum + tabel30(i)
Next

Response.Write("<br>")

Function Gennemsnit(ByRef sum, maks)
    Response.Write("Gennemsnittet er " & sum/30 & "<br>")
    Response.Write("Det største tal er " & maks & "<br>")
End Function
Call Gennemsnit(sum,maks)
%>

//>Rune

tak

Anytime ;-)

Thx 4 Poinz
//>Rune