Sugeneruoti K sveikųjų atsitiktinių skaičių intervale [0;1]. Apskaičiuoti kiek sugeneruotoje sekoje yra 0 ir 1. naudoti cikla For...Next Dim n As Integer Dim sk As Single Dim seka As String Dim suapval As Byte Dim i As Integer Private Sub Command1_Click() n = Text1.Text seka = " " For i = 0 To n - 1 Randomize sk = Rnd suapval = Round(sk) seka = seka & suapval & " - " Next i Label1.Caption = seka End Sub vat tiek sugalvoju, toliau nzn gal kokia komanda reikia kuri skaiciuotu vienodus skaicius gaip manot Jūs.