Напечатать первые числа из ряда, расположенные за отрицательными числами - VB

Узнай цену своей работы

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

Дан массив целых чисел - А=(аi), где i={1,2....n}. Напечатать первые числа, расположенные за отрицательными числами или "Отрицательных чисел нет!" Например, если А={2, -4, -3, 0, 2, 5, -2, -8}, результат: -3, 0, -8. __________________________________________________________ Можно ли сделать так, чтобы массив считывал с textbox1 - text1 А потом при нажатии на command1,напечатать на label1?

Решение задачи: «Напечатать первые числа из ряда, расположенные за отрицательными числами»

textual
Листинг программы
Private Sub Command1_Click()
Dim x() As Long, y() As Long, n, i As Integer
dim f as boolean
n = InputBox("Ввод размера массива", "Данные", 8)
    ReDim x(1 To n), y(1 To n)
    Me.Cls
    For i = 1 To n
        x(i) = Int(Rnd * (-10) + 1)
        Print x(i) & vbTab;
    Next i
    y = x
    Print
    For i = 1 To (n - 1)
      If y(i) < 0 Then
        Print y(i + 1) & vbTab;
        f=true
      End If
    Next i
  if f=false then print "отрицательных чисел нет"
End Sub

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

7   голосов , оценка 3.429 из 5
Похожие ответы