Imports System

Public Module Module1

      Public ProductionData(,) As Integer

    Public DailyHoursWorked() As Integer

    Sub Main()

        Dim NumDays As Integer

        Dim NumWorkers As Integer

        Console.WriteLine("Enter number of days")

        NumDays = Console.ReadLine

        Console.WriteLine("Enter number of workers")

        NumWorkers = Console.ReadLine

        Dim TempProductionData(NumDays, NumWorkers) As Integer

        Dim TempDailyHoursWorked(NumWorkers) As Integer

​

        Console.WriteLine("Enter daily hours worked")

        For i = 1 To NumWorkers

            TempDailyHoursWorked(i) = Console.ReadLine

        Next

        Console.WriteLine("Production data")

​

​

​

    End Sub

    Sub AnalyseProductionData(ByVal NumDays As Integer, ByVal NumWorkers As Integer)

        Dim WorkerNum As Integer

        Dim WorkerTotal(3) As Integer

        Dim DayNum As Integer

        Dim WorkerAverage As Double

​

        For WorkerNum = 1 To NumWorkers

            WorkerTotal(WorkerNum) = 0

        Next

​

        For WorkerNum = 1 To NumWorkers

            For DayNum = 1 To NumDays

                WorkerTotal(WorkerNum) = WorkerTotal(WorkerNum) + ProductionData(DayNum, WorkerNum)

            Next

        Next

​

        For WorkerNum = 1 To NumWorkers

            WorkerAverage = WorkerTotal(WorkerNum) / (4 * DailyHoursWorked(WorkerNum))

​

​

            If WorkerAverage < 2 Then

                Console.WriteLine("Investigate" & WorkerNum)

            End If

        Next

    End Sub

End Module