Помогите пожалуйста,как мне написать код на Visual Basic...плиз.... Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а так же их кол-во К.
Private Sub Command1_Click() Dim A(1 To 10), B(1 To 10) As Single Dim i, k, j As Integer Cls k = 0 For i = 1 To 10 A(i) = Fix(Rnd(5) * 100) Print A(i); If Fix(A(i) / 2) * 2 <> A(i) Then k = k + 1 B(k) = A(i) End If Next Print For j = 1 To k Print B(j); Next Print Print "k="; k
Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а так же их кол-во К.