Gennemsnit

Jeg mangler lidt hjælp til lektierne :-)

Der skal laves et array, som udskriver tabelen for det indtastede tal:

·      Udskrivningen af arrayet skal ske i en procedure
·      Der skal laves en funktion der beregner gennemsnittet af tallene i ar-rayet. Gennemsnittet skal også udskrives.

Jeg mangler lige at få det med gennemsnittet til at virke:

Min Kode:

<%
If Request.Servervariables("Query_String") <> "" Then
           
    wtal=Request.QueryString("tal")
   
    if (not(ErhelTal(wtal))) then
        Response.Write "Du skal skrive et heltal !!"
        Response.End
    end if

    Call SkrivTabel(wtal)
    Response.Write "<br>"
    Response.Write "GennemSnittet er: " & GennemSnit(sum)
   
ELSE   
%>
<form>
Hvilken tabel ønsker du<br>
<input type="text" name="tal" size="10"><br>
<input type="submit" value="Skriv Tabel">
</form>
<%
END IF


Function ErHeltal(tal)
  ErHeltal = true
  If not isNumeric(tal) then
      ErHeltal = false
  End if

  If (InStr(tal, ",") > 0) or (InStr(tal, ".") > 0) then
      ErHeltal = false
  End if
End Function


Function SkrivTabel(Tal)

    FOR i=1 to 10
    tabtal = wtal*i
    Response.Write tabtal & ", "
    sum = sum+tabtal
    Next
    Response.Write "<br>"
    Response.Write "Summen af tallene er:" & sum

End Function


Function GennemSnit(tal)
    GennemSnit = tal/10
End Function   

%>