Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
Ondrej Zadrapa:20.5.2020 11:25

Caute, mam další trable s polem, jak zjistim, kolikrat se konkretni hodnota, minimum, opakuje v poli? Aby mi ve vypisu vyslo, ze zadanych hodnot, třeba 10,2,2,5,6,2 je nejmensi 2 a nachazi se 3x v poli, jak to lze udelat, podle male napovedy v zadani je třeba vytvořit treti smycku, hledal jsem nekde na internetu nejakou srozumitelnou radu, ale přes tu haldu informaci a cizích slov jsem se nedostal k tomu, co hledam, poradil by mi někdo, prosim?

Zkusil jsem:

Sub Main()
        Console.WriteLine("Zadej pocet cisel v rade:")
        Dim pocetCisel As Integer = Integer.Parse(Console.ReadLine())
        Dim poleCisel() As Integer = New Integer(pocetCisel - 1) {}
        For i As Integer = 0 To pocetCisel - 1
            Console.Write("Zadej {0}. cislo: ", i + 1)
            poleCisel(i) = Integer.Parse(Console.ReadLine())
        Next
        Dim minimum = poleCisel(0)
        For i As Integer = 0 To poleCisel.Length - 1
            If poleCisel(i) < minimum Then
                minimum = poleCisel(i)
            End If
        Next
        Dim kolikrat As Integer = 0
        For i As Integer = 0 To poleCisel.Length - 1

        Next
        Console.WriteLine("Nejmensi cislo v poli je {0}.", minimum)
        Console.WriteLine("V poli se nachazi {0}x.", kolikrat)
        Console.ReadKey()
    End Sub

Chci docílit: Aby ve vystupu vypsal hodnotu minima a kolikrat se to minimum v poli vyskytuje.

 
Odpovědět
20.5.2020 11:25
Avatar
Ondrej Zadrapa:20.5.2020 11:58

Dobry, uz jsem na to prisel. :D

 
Nahoru Odpovědět
20.5.2020 11:58
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 2 zpráv z 2.