MasSav_2

DIM Fam$, Mark$, I AS INTEGER, C AS INTEGER, M(1 TO 100) AS INTEGER
DIM S AS INTEGER, MI AS INTEGER, Sum AS LONG
INPUT "Input Surname: ", Fam$
INPUT "Input marks: ", Mark$
I = 1
DO
    DO WHILE MID$(Mark$, I, 1) = " "
        I = I + 1
    LOOP
    S = I
    DO WHILE MID$(Mark$, I, 1) <> " " AND I <= LEN(Mark$)
        I = I + 1
    LOOP
    MI = MI + 1
    M(MI) = VAL(MID$(Mark$, S, I - S))
LOOP WHILE I <= LEN(Mark$)
FOR I = 1 TO MI
    Sum = Sum + M(I)
NEXT I
PRINT "Student "; Fam$; " has average score:"; Sum / MI