Сформировать новый массив B из отрицательных элементов одномерного массива А

Ввести результаты с клавиатуры, из тела цикла(операторы DATA READ) и из файла LABRAB8.BAS.

предварительно создаём файл, в который пишем числа через пробел, можно в несколько строк, и называем его LABRAB8.BAS

CLS
DIM a(1000)
OPEN "LABRAB8.BAS" FOR INPUT AS #1
DO WHILE NOT EOF(1)
k = k + 1
INPUT #1, a(k)
LOOP
CLOSE
FOR i = 1 TO k
IF a(i) < 0 THEN n = n + 1: b(n) = a(i)
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
FOR i = 1 TO n
WRITE #2, b(i)
NEXT
CLOSE

автор: кот Бегемот