Определить, имеются ли в массиве два подряд идущих нулевых элемента - VB

Формулировка задачи:

Одномерный массив из 8 элементов. - Заполнить с клавиатуры - Определить, имеются ли в массиве два подряд идущих нулевых элемента. - Все элементы массива, имеющие значения менее 10, заменить нулем. - Вывести номера тех элементов массива, значения которых превышает среднее арифметическое значение всех элементов массива.

Решение задачи: «Определить, имеются ли в массиве два подряд идущих нулевых элемента»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
Dim a(8) As Double
Dim i, k As Integer
 
For i = 0 To 7
a(i) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " + Str(i + 1) + " ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ*"): Print Str(a(i))
Next
For i = 0 To 7
If (a(i) = 0) And (a(i + 1) = 0) Then
k = k + 1
End If
Next
If k > 0 Then
MsgBox ("Г„ГўГ* ГЁГ¤ГіГ№ГЁГµ ГЇГ®Г¤Г°ГїГ¤ Г*ГіГ«ГҐГўГ»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ* ГҐГ±ГІГј!")
Else
MsgBox ("Г€Г±ГЄГ®Г¬Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г*ГҐГІ!")
End If
 
End Sub

Оцени полезность:

9 голосов , оценка 4.222 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы