Task 2 CSPR
declare values - answersnumDays *<-*20
highestLateness*<-* 0
latestBus *<-* " "
busALate*<-* 0
busATotalLate *<-* 0
busATotalTime*<-* 0
*the number of late arrivals for each bus route - answersFOR x *<-* 1 TO numDays DO
IF BusA[x] < 0 THEN
busALate *<-* busALate + 1
busATotalLate*<-* busATotalLate + (1 - BusA[x])
busATotalTime *<-* busATotalTime + BusA[x]
NEXT x
• the bus route with the highest number of days on which it was late
• - answersIF busALate > highestLateness THEN
highestLateness *<-* busALate
latestBus *<-*"Bus A"
the average number of minutes late for each bus route, using only data from days on
which it was late - answersbusAAveLate = busATotalLate / numDays
the average number of minutes late for each bus route - answersbusAAveTime =
busATotalTime / busALate
print the answers for the bullet points - answersPRINT "The number of late arrivals for
Bus A was", busALate
PRINT "The average number of minutes late for Bus A was", busAAveTime
declare values - answersnumDays *<-*20
highestLateness*<-* 0
latestBus *<-* " "
busALate*<-* 0
busATotalLate *<-* 0
busATotalTime*<-* 0
*the number of late arrivals for each bus route - answersFOR x *<-* 1 TO numDays DO
IF BusA[x] < 0 THEN
busALate *<-* busALate + 1
busATotalLate*<-* busATotalLate + (1 - BusA[x])
busATotalTime *<-* busATotalTime + BusA[x]
NEXT x
• the bus route with the highest number of days on which it was late
• - answersIF busALate > highestLateness THEN
highestLateness *<-* busALate
latestBus *<-*"Bus A"
the average number of minutes late for each bus route, using only data from days on
which it was late - answersbusAAveLate = busATotalLate / numDays
the average number of minutes late for each bus route - answersbusAAveTime =
busATotalTime / busALate
print the answers for the bullet points - answersPRINT "The number of late arrivals for
Bus A was", busALate
PRINT "The average number of minutes late for Bus A was", busAAveTime