Заполнение массива - VB (62743)
Формулировка задачи:
Здравствуйте! помогите решить задачу с массивом :
2. Проверить, сколько из 10 чисел, введенных пользователем, удовлетворяют условию, вывести эти числа.
2.1. отрицательные;
2.2. являются нечетными;
2.3. принадлежат интервалу (a, b), где a и b вводятся пользователем;
2.4. меньше своих индексов;
2.5*. есть ли равные числа;
Вот 2.1 и начало проги , правильно ли ?:
Решение задачи: «Заполнение массива»
textual
Листинг программы
Dim Arr(1 To 10) As Single
Dim C1 As Integer, C2 As Integer, C3 As Single, C4 As Single, C5 As Boolean
Dim a As Single, b As Single
a = InputBox("a")
b = InputBox("b")
For i = 1 To 10
Arr(i) = InputBox("Элемент № " & i)
If Arr(i) < 0 Then C1 = C1 + 1
If Arr(i) Mod 2 <> 0 Then C2 = C2 + 1
If Arr(i) >= a And Arr(i) <= b Then C3 = C3 + 1
If Arr(i) < i Then C4 = C4 + 1
Next i
C5 = False
For i = 1 To 9
For j = i + 1 To 10
If Arr(i) = Arr(j) Then C5 = True: Exit For
Next j
Next i
If C5 = True Then
MsgBox ("1.Отрицательные " & C1 & Chr(13) & "2.Являются нечетными " & C2 & Chr(13) & "3.Принадлежат интервалу (a, b) = " & C3 & Chr(13) & "4.Меньше своих индексов = " & C4 & Chr(13) & "Есть равные")
Else
MsgBox ("1.Отрицательные " & C1 & Chr(13) & "2.Являются нечетными " & C2 & Chr(13) & "3.Принадлежат интервалу (a, b) = " & C3 & Chr(13) & "4.Меньше своих индексов = " & C4 & Chr(13) & "Нет равных")
End If