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.
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.