CH4_Ex4

%Averages a number of marks inputted by the user
%VARIABLES
var marksInSeries : int
var mark : real
var loopcount : int := 1

%PROCEDURES
procedure avg
    var marks : array 0 .. marksInSeries of real

    %Take in marks
    for num : 1 .. marksInSeries
        put "Mark ", num, ": " ..
        get marks (num)
    end for

    %Total marks
    var sum : real := 0
    for i : 1 .. marksInSeries
        sum := sum + marks (i)
    end for

    %Output
    put " "
    if marksInSeries > 1 then
        put sum / marksInSeries, " is the average of all ", marksInSeries, " marks."
    %output if they only put one mark in
    elsif marksInSeries = 1 then
        put "Haha, very funny. The one mark you put in is ", sum
    else put "Wait what? how did you do that?"
    end if

    %Housekeeping
    put " "
    put " "
    delay (750)
    put "------------------------------------------------"
    put " "
    put " "
    loopcount += 1

end avg

    %Main Loop
loop
    put "Marks in Series ", loopcount, ": " ..
    get marksInSeries
    avg
end loop