Чтобы программа работала создадите файл с именем «f» в той папке, где находится Qbasic и запишите в него любые числовые значения, разделенные запятой, пробелом или переводом строки
CLS
DIM a(1000)
OPEN "f" FOR INPUT AS #1
PRINT "ishodniye komponenti faila f"
i = 0
DO WHILE NOT EOF(1)
i = i + 1
INPUT #1, a(i)
PRINT a(i);
LOOP
CLOSE #1
PRINT: PRINT
IF a(i) > 0 THEN
a(1) = a(i)
OPEN "f" FOR OUTPUT AS #1
FOR k = 1 TO i
PRINT #1, a(k);
NEXT k
CLOSE #1
END IF
OPEN "f" FOR INPUT AS #1
PRINT "komponenti faila f posle preobrazovaniy"
DO WHILE NOT EOF(1)
i = i + 1
INPUT #1, a(i)
PRINT a(i);
LOOP
CLOSE #1
Тестирование выполнено в программе QB64 ( Скачать )