Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Массив
Помогите пожалуйста,как мне написать код на Visual Basic...плиз.... cry Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а так же их кол-во К.
1 | Автор: Shershaviy | 2009-03-22, 15:03   |  Репутация: [ + 0 ]
Вот один из вариантов

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
2 | Автор: WeisGB | 2010-09-23, 09:35   |  Репутация: [ + 0 ]


WeisGB
2 | Автор: WeisGB | 2010-09-23, 09:35   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: