Imports System
Public Module Module1
Public Sub Main()
Dim Skyfall, Count, Total As Integer
Dim Average As Decimal
Count = 0
Total = 0
Console.WriteLine("Enter rainfall or -1 to stop")
Skyfall = Console.ReadLine()
Do While Skyfall >= 0
Count = Count + 1
Total = Total + Skyfall
Loop
If Count > 0 Then
Average = Total / Count
Else
Average = 0
End If
Console.WriteLine("Average = " & Average)
End Sub
End Module
'PSUEDOCODE
'
'INTEGER: Skyfall, Count, Total
'REAL: Average
'Count <-- 0
'Total <-- 0
'WHILE Skyfall <=0 DO
'Count <-- Count + 1
'Total <-- Total + Skyfall
' OUTPUT "Enter rainfall or -1 to stop"
' INPUT Skyfall
'ENDWHILE
'IF Count > 0 THEN
' Average <-- Total / Count
'OTHERWISE
'Average <-- 0
'ENDIF
'OUTPUT "Average = " & Average"