Private Sub Command 1Click Dim A1 To 22

Private Sub Command 1_Click() Dim A(1 To 22) As Integer, I As Byte Randomize c = Fix(Rnd * 15) For I = 1 To 22 A(I) = -5 + Fix(Rnd * (37 - (-5) + 1)) Fore. Color = QBColor(c) Print A(I); Next I: Print End Sub

Определите имя массива, количество элементов, способ заполнения Private Sub Command 1_Click() Dim B(1 TO 17) As Byte, X As Byte RANDOMIZE FOR X=1 TO 17 В(X)= 12+FIX(RND*(55 -12+1)) PRINT В(X); NEXT X End Sub

Найдите ошибки! Private Sub Command 1_Click() Dim К(1 TO 19) As Integer, X As Byte RANDOMISE FOR Y=1 TO 25 А(Y)= -60+FIX(RND*(-10 -(60)+1)) PRINT К(Y); NEXT End Sub

Private Sub Command 1_Click() Dim К(1 TO 19) As Integer, X As Byte RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10 -(-60)+1)) With Font. Bold = True. Size = 14 Fore. Color = vb. Red End With PRINT К(X); NEXT X End Sub

Private Sub Command 1_Click() Dim К(1 TO 19) As Integer, X As Byte, S As Integer RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10 -(-60)+1)) PRINT К(X); NEXT X: PRINT S=0 FOR X=1 TO 19 S=S + K(X) NEXT X PRINT “S=”; S End Sub

Private Sub Command 1_Click() Dim К(1 TO 19) As Integer, X As Byte, S As Integer RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10 -(-60)+1)) PRINT К(X); NEXT X : PRINT S=0 FOR X=1 TO 19 IF K(X)/2 >< K(X)2 THEN S=S + K(X) NEXT X PRINT “S=”; S End Sub

Private Sub Command 1_Click() DIM К(1 TO 19) As Integer, Y As Byte, S As Byte RANDOMIZE FOR Y=1 TO 19 К(Y)= -60+FIX(RND*(-10 -(-60)+1)) PRINT К(Y); NEXT Y: PRINT S=0 FOR Y=1 TO 19 IF K(Y)/2 >< K(Y)2 THEN S=S + 1 NEXT Y PRINT “S=”; S End Sub

Private Sub Command 1_Click() Dim A(1 To 15) As Integer, I As Byte, MIN As Integer RANDOMIZE FOR I = 1 TO 15 A(I) = -7 + INT(RND * (20 - (-7) + 1)) PRINT A(I); NEXT I: PRINT FOR I = 1 TO 15 IF A(I)/3 = FIX(A(I)/3) THEN PRINT A(I); NEXT I: PRINT MIN = A(1) FOR I = 2 TO 15 IF A(I) < MIN Then MIN = A(I) NEXT I: PRINT “Минимальный элемент массива = "; MIN PRINT End Sub

Private Sub Command 1_Click() Dim К(1 TO 19) As Integer, X As Byte Dim S As Integer, S 1 As Integer Dim P As Single, P 1 As Single RANDOMIZE FOR X=1 TO 19 К(X)= -60+FIX(RND*(-10 -(-60)+1)) PRINT К(X); NEXT X : Print S = 0: S 1 = 0: P = 1: P 1 = 1 For X = 1 To 19 S = S + K(X) If K(X) / 2 = K(X) 2 Then Fore. Color = vb. Blue: Print K(X); : S 1 = S 1 + K(X) P = P * K(X) If K(X) / 2 <> K(X) 2 Then Fore. Color = vb. Magenta: Print K(X); : P 1 = P 1 * K(X) Next X Fore. Color = vb. Black Print «Сумма всех элементов ="; S Print «Сумма четных элементов ="; S 1 Print «Произведение всех элементов ="; P Print " Произведение нечетных элементов ="; Р 1 End Sub Демонстрация