Imports System

Public Module Module1

    Public Sub Main()

        Dim times(3) as String

        Dim temperatures(7, 3) As Integer

        Dim mintemps1, maxtemps1, mintemps2 (3), maxtemps2(3) As Integer

        Dim avgst(3), avgsd As Double

        Dim i, j, sumt(3), maxt(3), mint(3), sumd, mind,maxd  As Integer    

        Dim neg, above20, sumdays(7) as integer

        times(1) = "01.00 π.μ."

        times(2) = "8.00π.μ."

        times(3) = "17.00 μ.μ."

        maxd = 0

        mind = 10000

        sumd = 0

        neg = 0

        above20 = 0

        For i = 1 to 3

            maxt(i) = 0

            mint(i) = 10000

            sumt(i) = 0

        next i

        For i = 1 To 7

            For j = 1 To 3  

                Console.WriteLine("Give temperature: ")

                temperatures(i,j) = Int32.Parse(Console.ReadLine()) 

                if temperatures(i,j) < 0 then

                   neg = neg + 1

                end if

                sumdays(i) = sumdays(i) + temperatures(i,j)

                if temperatures(i,j) > 20 then

                   above20 = above20 + 1

                end if

                sumd = sumd + temperatures(i,j) 

                if maxd<temperatures(i,j) then

                    maxd = temperatures(i,j)

                    maxtemps1 = maxd

                end if

                if mind>temperatures(i,j) then

                    mind = temperatures(i,j)

                    mintemps1 = mind

                end if

                sumt(j) = sumt(j) + temperatures(i,j) 

                if maxt(j)<temperatures(i,j) then

                    maxt(j) = temperatures(i,j)

                    maxtemps2(j) = maxt(j)

                end if

                if mint(j)>temperatures(i,j) then

                    mint(j) = temperatures(i,j)

                    mintemps2(j) = mint(j)

                end if

            Next j

        Next i

​

for i = 1 to 3

    avgst(i) = sumt(i) / 7

Next i

​

avgsd = sumd / 21

​

For i = 1 to 3

    Console.WriteLine ("Η μέγιστη θερμοκρασία για την ώρα " & times(i) & " is "  & maxt(i) & " βαθμοί")

next i

​

For i = 1 to 3

    Console.WriteLine ("Η ελάχιστη θερμοκρασία για την ώρα " & times(i) & " είναι " & mint(i) & " βαθμοί")

next i

​

For i = 1 to 3

    Console.WriteLine ("Η μέση θερμοκρασία για την ώρα " & times(i) & " είναι " & avgst(i) & " βαθμοί")

next i

​

Console.WriteLine("Η μέγιστη θερμοκρασία για ολόκληρη την εβδομάδα είναι " & maxd & " βαθμοί")

Console.WriteLine("Η ελάχιστη θερμοκρασία για ολόκληρη την εβδομάδα είναι " & mind & " βαθμοί")

Console.WriteLine("Η μέση θερμοκρασία για ολόκληρη την εβδομάδα είναι " & avgsd & " βαθμοί")

Console.WriteLine("Το πλήθος των θερμοκρασιών υπό το μηδέν είναι " & neg)

Console.WriteLine("Το πλήθος των θερμοκρασιών άνω των 20 βαθμών είναι " & above20)

​

for i = 1 to 7

   for j = 1 to 3

      if temperatures(i,j) > 20 then

            Console.WriteLine("Η μέρα " & i & " είχε μέρα > 20 βαθμών και μέσο όρο θερμοκρασίας " & sumdays(i)/3)          

      end if

    Next j

Next i

​

Console.WriteLine()

Console.WriteLine("ΘΕΡΜΟΚΡΑΣΙΕΣ ΕΒΔΟΜΑΔΑΣ")

    For i = 1 To 7

        For j = 1 To 3

        Console.Write(temperatures(i,j) & " ")

        Next j

    Console.WriteLine()

    Next i

​

​

​

    End Sub

End Module