Anonymní profil David – Programujte.com

#1 David
sám si odpovím :-)

Sub main()

Dim d20 As Integer
Dim sum As Integer
Dim prum As Single
Dim rozdil As Single

Dim nahodnaCisla As Integer
Dim ret As String
ret = ""
sum = 0

For d20 = 1 To 20

nahodnaCisla = Round(Rnd * (40) + 10)
ret = ret + Str(nahodnaCisla)
sum = sum + nahodnaCisla

Next d20

prum = Str(sum) / 20

rozdil = prum - 30

MsgBox "20 náhodných čísel v rozsahu 10-50" + Chr(10) + Chr(10) + ret + Chr(10) + Chr(10) + " se od svého průměru " + Str(prum) + Chr(10) + Chr(10) + " liší o " + Str(rozdil)

End Sub

Dobrý den, začínám programovat a nevím si rady s mnoha jednoduchými zadáními.
Nechci to vzdát a proto zkouším hledat odpověď zde na fóru. Jak vyřešit např: toto:
"Vygenerujte 20 celých náhodných čísel v rozsahu 10..50. Zjistěte, o kolik se jejich střední hodnota (průměr) liší od středu intervalu, tedy od 30."