1
// Question 9
2

3
// Input the number of games
4
REPEAT
5
  OUTPUT "How many games have been played:"
6
  INPUT Played
7
UNTIL Played <= 18
8

9
// Team names
10
FOR Index <- 1 TO 10
11
  OUTPUT "Enter the name:"
12
  INPUT Teams[Inedx]
13

14
  // Record the number of won, drawn and lost
15
  // (Include the validation)
16
  OUTPUT "Enter the number of won, drawn and lost:"
17
  INTPUT Won, Drawn, Lost
18
  WHILE Won + Drawn + Lost <> Played DO
19
    OUTPUT "Enter again:"
20
    INTPUT Won, Drawn, Lost
21
  ENDWHILE
22

23
  // Save the date in to Results[]
24
  Results[Index, 1] <- Won
25
  Results[Index, 2] <- Drawn
26
  Results[Index, 3] <- Lost
27

28
  // Calculate the total point
29
  Results[Index, 4] <- 3 * Won + 1 * Drawn
30
NEXT Index
31

32
// Sort the array
33
// (Bubble Sort)
34
Flag <- TRUE
35
WHILE Flag = TRUE DO
36
  Flag <- FALSE
37
  FOR Sort <- 1 TO 9
38
    IF Result[Sort, 4] < Result[Sort + 1, 4] THEN
39

40
      // Sawp two values
41
          TempString <- Teams[Sort]
42
            Temp1 <- Results[Sort, 1]
43
            Temp2 <- Results[Sort, 2]
44
            Temp3 <- Results[Sort, 3]
45
            Temp4 <- Results[Sort, 4]
46
            Teams[Sort] <- Teams[Sort + 1, 1]
47
            Results[Sort, 1] <- Results[Sort + 1, 1]
48
            Results[Sort, 2] <- Results[Sort + 1, 2]
49
            Results[Sort, 3] <- Results[Sort + 1, 3]
50
            Results[Sort, 4] <- Results[Sort + 1, 4]
51
            Teams[Sort + 1] <- TempString
52
            Results[Sort + 1, 1] <- Temp1
53
            Results[Sort + 1, 2] <- Temp2
54
            Results[Sort + 1, 3] <- Temp3
55
            Results[Sort + 1, 4] <- Temp4
56

57
      Flag <- TRUE
58
    ENDIF
59
  NEXT Sort
60
ENDWHILE
61

62
// Count the number of teams with the highest points
63
Count <- 1
64
Finish <- TRUE
65
REPEAT
66
  IF Result[Count, 4] = result[Count + 1, 4] THEN
67
    Count <- Count + 1
68
  ELSE
69
    Finish <- True
70
  ENFIF
71
UNTIL Finish = TRUE
72

73
// Output the result
74
FOR Index <- 1 to Count
75
  OUTPUT "Winning Team(s): ", Teams[Index]
76
NEXT Index
77
OUTPUT "Winning Points: ", Results[1 , 4]