Примеры программ на языке QBASIC


REM Ввод, вывод и суммирование 20 целых чисел
DIM A(20)
F$ = "##:###### "
PRINT "Введите 20 чисел, по одному в строке"
FOR I = 0 TO 19: INPUT A(I): S = S + A(I): NEXT I
FOR I = 0 TO 19: PRINT USING F$; I + 1; A(I); : NEXT I
INPUT A$
FOR I = 0 TO 19: PRINT USING F$; I + 1; A(I): NEXT I
PRINT "----------"
PRINT USING "   ######"; S
END