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

28.11.2011, 00:21. **Показов** 1782. **Ответов** 1

Author24 — интернет-сервис помощи студентам

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

@Catt · 28.10.2013, 02:34

Тут просто находит, лежит или нет на плоскости.

Visual Basic

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

Sevko93
		1
	Все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить на единицу 28.11.2011, 00:21. Показов 1782. Ответов 1 Метки нет (Все метки) Даны натуральное число n, действительные числа а1,...,аn. В последовательности а1,..., аn все неотрицательные члены, не при- надлежащие отрезку [1, 2], заменить на единицу. Кроме того, по- лучить число отрицательных членов и число членов, принадлежащих отрезку [1, 2]. Как решить подскажите??

	28.10.2013, 02:34

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

Решение