Написание программ с использованием операторов управления

@Maratwp · Регистрация: 22.03.2010

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

Вводить последовательность до тех пор, пока не встретятся три подряд
идущих положительных числа. Тогда прервать ввод и сообщить, сколько во
введенной последовательности было всего чисел. Присутствуют ли во введенном
массиве отрицательные числа. Если да, то под каким номером встречается первое
из них.

@YuraAAA · 30.03.2010, 02:14

Visual Basic

Public Sub Proc1()
Dim a() As Single, n As Single, i As Single
Dim c, S, kol
n = 1
ReDim a(1 To n) As Single
Do While c < 3
a(n) = InputBox("Vvedite element " & n)
If a(n) > 0 Then
c = c + 1
Else
c = 0
End If
If c = 3 Then
MsgBox ("vsego 4isel : " & n)
Exit Do
End If
n = n + 1
ReDim Preserve a(1 To n) As Single
Loop
For i = 1 To n
If a(i) < 0 Then
MsgBox ("Pervoe Otrizatel'noe 4islo pod nomerom " & i)
Exit Sub
End If
Next i
End Sub

@Maratwp 2 / 2 / 0 Регистрация: 22.03.2010 Сообщений: 146
		1
	Написание программ с использованием операторов управления 29.03.2010, 21:28. Показов 1590. Ответов 1 Метки нет (Все метки) Вводить последовательность до тех пор, пока не встретятся три подряд идущих положительных числа. Тогда прервать ввод и сообщить, сколько во введенной последовательности было всего чисел. Присутствуют ли во введенном массиве отрицательные числа. Если да, то под каким номером встречается первое из них. 0

	30.03.2010, 02:14