|
Вот один из вариантов 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
WeisGB
|
Вход
Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а так же их кол-во К.
