Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Module Module1
- ''napisati program koji kreira niz od 20 elemenata, i popuni ih random generiranim vrijednostima u intervalu od 10 do 100.
- 'Program potom ispise korisniku izbornik pomocu kojeg on moze birati dali zeli ispisati sve elemente niza(1),
- 'ispisati koliko elemenata niza je vece od neke unesene vrijednosti(2), ispisati koliko elemenata niza je djeljivo s nekom unesenom
- 'vrijednoscu (3) i kraj (4)
- Sub Main()
- Dim rnd As Random = New Random()
- Dim niz As Integer() = New Integer(19) {}
- Dim izbor As Integer
- Dim brojac As Integer
- Dim broj As Integer
- For i = 0 To 19
- niz(i) = rnd.Next(10, 101)
- Next
- While izbor <> 4
- Console.WriteLine("pritisnite 1 za ispis elemenata niza, 2 koliko je elemenata vece od unesene vrijednosti,3 koliko je djeljivo, 4 kraj programa")
- izbor = Console.ReadLine()
- Select Case izbor
- Case 1
- Console.WriteLine("ispisite sve elemente niza")
- For i = 0 To 19
- Console.WriteLine(niz(i))
- Next
- Case 2
- Console.WriteLine("odabrali ste koliko je elemenata vece od unesene vrijednosti")
- Console.WriteLine("unesite vrijednost")
- broj = Console.ReadLine()
- For i = 0 To 19
- If broj < niz(i) Then
- brojac += 1
- End If
- Next
- Console.WriteLine("{0} elemenata je vece od unesene vrijednosti", brojac)
- Case 3
- Console.WriteLine("izabrali ste koliko je elemenata djeljivo s unesenom vrijednoscu")
- Console.WriteLine("unesite vrijednost")
- broj = Console.ReadLine()
- For i = 0 To 19
- If niz(i) Mod broj = 0 Then
- brojac += 1
- Else
- End If
- Next
- Console.WriteLine("{0} je djeljivo s unesenom vrijednoscu", brojac)
- Case 4
- Console.WriteLine("odabrali ste kraj programa")
- Exit While
- End Select
- End While
- Console.ReadLine()
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement