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