10 CLS
30 DIM SUB$(6)
35 INPUT ” ENTER THE SUBJECT”; SUB$(1)
40 INPUT ” MARKS”; M(1)
41 INPUT “ENTER THE SUB”; SUB$(2)
42 INPUT “ENTER THE MARKS”; M(2)
43 INPUT “ENTER THE SUB “; SUB$(3)
44 INPUT “ENTER THE MARKS”; M(3)
45 INPUT “ENTER THE SUB”; SUB$(4)
46 INPUT “ENTER THE MARKS”; M(4)
47 INPUT “ENTER THE SUB”; SUB$(5)
48 INPUT “ENTER THE MARKS”; M(5)
49 INPUT “ENTER THE SUB”; SUB$(6)
50 INPUT “ENTER THE MARKS”; M(6)
51 CLS
100 LET M = M(1) + M(2) + M(3) + M(4) + M(5) + M(6)
160 CLS
170 LET PERCENT = M / 600 * 100
200 PRINT “TOTAL MARKS”; M
210 PRINT “% OF MARKS”; PERCENT
220 END

Please follow and like us: