Files
agila-learning-examples/ceb/basic-practice-20261101/lesson-1/main.bas
T

11 lines
129 B
QBasic

10 DIM M(3)
20 LET M(1)=1
30 LET M(2)=2
40 LET M(3)=3
50 LET T=0
60 FOR I=1 TO 3
70 LET T=T+M(I)
80 NEXT I
90 PRINT T
100 SYSTEM