Все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить на единицу - VB

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

Даны натуральное число n, действительные числа а1,...,аn. В последовательности а1,..., аn все неотрицательные члены, не при- надлежащие отрезку [1, 2], заменить на единицу. Кроме того, по- лучить число отрицательных членов и число членов, принадлежащих отрезку [1, 2]. Как решить подскажите??

Решение задачи: «Все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить на единицу»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Command1_Click()
Dim i As Integer 
Dim a(-10 To 10) As Integer 
Dim n As Integer 
Dim min As Integer
Dim k As Integer 
For i = 1 To 3 
n = InputBox("Вводим элементы массива", "Н")
a(i) = n 
If a(i) > min Then 
a(i) = 1 
Print "Если лежит на плоскости то заменяем на единицу"; a(i) 
Else 
If a(i) < min Then ' Г…Г±Г«ГЁ Г®ГІГ°ГЁГ¶Г*ГІГҐГ«ГјГ*Г®ГҐ Г·ГЁГ±Г«Г® ГўГ»Г¤Г*Г±ГІ Г®ГёГЁГЎГЄГі
Print "Если отрицательное то ошибка"
End If 
End If 
Next
End Sub
                        

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

15 голосов , оценка 3.933 из 5

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