Anonymní profil Uzi – Programujte.com

Ještě jsem to napsal takhle. Může mi někdo poradit, kde mám chybu. Díky za radu.
Sub main()

  Dim i As Byte, pocetVIntervalu As Byte, rozsah As Byte
  Dim nah As Single
  Dim s As String
  Dim vIntervalu As String
  Dim prum As Single
  
  pocetVIntervalu = 0
 
  s = "Padla tato náhodná čísla: "
  rozsah = 70 - (-30) + 1
  vIntervalu = "V intervalu od 0 do 70 byla tato čísla: "
  For i = 1 To 10
    nah = Int(Rnd() * rozsah) - 30
    If (nah >= 0) And (nah <= 70) Then
      vIntervalu = vIntervalu + Str(nah) + ", "
      pocetVIntervalu = pocetVIntervalu + 1
    End If
    s = s + Str(nah) + ", "
Next
prum = prum + Str(vIntervalu / pocetVIntervalu)
  
  MsgBox s + Chr(10) + vIntervalu + Chr(10) + "Tedy v intervalu 0..70 bylo celkem " + Str(pocetVIntervalu) + " čísel"
  MsgBox "prumer je" + Str(prum)
End Sub

#2 hlucheucho
myslíš takhle.

Dim nah As Single
Dim soucet As Integer
Dim prumer As Single
Dim i As Single
Dim pocet As Integer
rozsah = 70 - (-30) + 1

For i = 1 To 10
nah = Int(Rnd() * rozsah) - 30

   Next i
If (nah > 0) And (nah > 30) Then
pocet = pocet + Str(nah) + ","
soucet = soucet + 1
prumer = prumer + Str(soucet / pocet)

End Sub

Jestli mi to naprogramujes pošlu ti 50 Kč a když mi na programuješ ještě jeden příklad dám ti 100 kč.

#3 hlucheucho
stvořil jsem tohle. Dál nevím.

Sub main()

 Dim i As Byte, pocetVIntervalu As Byte, rozsah As Byte
  Dim nah As Single
  Dim s As String
  Dim vIntervalu As String
  Dim sum As String
    Dim prum As Single
  s = ""
  sum = 0
  pocetVIntervalu = 0
  s = "Padla tato náhodná čísla: "
  rozsah = 70 - (-30) + 1
  vIntervalu = "V intervalu od 0 do 70 byla tato čísla: "
  For i = 1 To 10
    nah = Int(Rnd() * rozsah) - 30
    sum = sum + nah
    If (nah >= 0) And (nah <= 70) Then
      vIntervalu = vIntervalu + Str(nah) + ", "
      pocetVIntervalu = pocetVIntervalu + 1
    End If
    s = s + Str(nah) + ", "
    prum = Int(pocetVIntervalu) / 35
  Next
  MsgBox s + Chr(10) + vIntervalu + Chr(10) + "Tedy v intervalu 0..70 bylo celkem " + Str(pocetVIntervalu) + " čísel"
  
  MsgBox s + Chr(10) + "jejich prumer je  " + Str(prum)
  
   
End Sub

Zasekl jsem se na tomto příkladu:

Z klávesnice se zadají výše platu zaměstnanců ukončené platem ředitele, který přesáhl jako jediný 50 000 Kč. Vypočítej průměrný plat ve fabrice a o kolik plat ředitele přesahuje průměrný plat.

Zasekl jsem se na tomto příkladu:

Z klávesnice se zadají výše platu zaměstnanců ukončené platem ředitele, který přesáhl jako jediný 50 000 Kč. Vypočítej průměrný plat ve fabrice a o kolik plat ředitele přesahuje průměrný plat.

Dobrý večer, potřebovala bych poradit, jak tento úkol mám naprogramovat. Dík

Vygeneruj a vypište 10 nahodných čísel od -30 do 70 a zjistěte  průměr jen kladných čísel.