Программу нужно написать без использования массивов .
Вот что я написал :
Код: Выделить всё
Private Sub CommandButton1_Click()
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim n As Integer
Label1.Caption = ""
Label2.Caption = ""
b = 0
Do
a = InputBox("Введите целое число")
If a <> 0 Then
Label1.Caption = Label1.Caption & Str(a) & "; "
End If
If b <> 0 Then
If a < 0 Then
Label2.Caption = Label2.Caption & Str(b) & "; "
End If
End If
b = a
Loop While a <> 0
End Sub
Преподаватель сказал что должны выводиться ВСЕ числа идущие перед отрицательными . Вообще это реально осуществить без использования массивов ? Если знаете как подскажите )
(Язык программы впринципе неважен (Pascal , VBA) , мнебы хотябы алгоритм)