{* Задача121 *}

REM basic

' Имеется массив А из N произвольных чисел, среди которых есть положительные, отрицательные и равне нулю. Напечатать числа из массива, которые образуют растущую последовательность. например, если А={2, 4, 3, 4, 2,-2, 5}, результат 2, 4 и -3, 4 и -2, 5.


CLS
INPUT " n ", n
Dim a(n)
           RANDOMIZE (TIMER)
For i = 1 To n
a(i) = INT(RND * 20) - 10
PRINT a(i); " ";
Next
PRINT
      
For i = 1 To n - 1
    s$ = STR$(a(i)): f = 0
      For j = i To n - 1
         If a(j) < a(j + 1) Then
           s$ = s$ + " ; " + STR$(a(j + 1))
           f = 1
         Else
           Exit For
         End If
     Next
   If f = 1 Then
      i = j - 1
      PRINT s$
   End If
Next
 End