{* Задача388 *}

REM basic

' Из последовательности чисел a1, a2,..., an выбрать отрицательные элементы, подсчитать их число и переписать их подряд в массив x.


CLS
INPUT "vvedite n"; n
Dim a(n), x(n)
For i = 1 To n
    PRINT "vvedite"; i; "element";
    INPUT a(i)
Next
For i = 1 To n
    PRINT a(i);
Next
For i = 1 To n
    If a(i) < 0 Then k = k + 1: x(k) = a(i)
Next
PRINT String$(80, 196); "k ="; k
For i = 1 To k
    PRINT x(i);
Next
End