CS 15 Marker
Okay so I gave instructions to ChatGPT about the question and it gave me a code
(Also, I am cooked)
Here:
// DECLARATIONS
DECLARE x : INTEGER
DECLARE TotalRainMM : REAL
DECLARE TotalRainCM : REAL
DECLARE AverageRain : REAL
DECLARE NoRainDays : INTEGER
DECLARE CurrentDryDays : INTEGER
DECLARE LongestDryDays : INTEGER
TotalRainMM ← 0
TotalRainCM ← 0
AverageRain ← 0
NoRainDays ← 0
CurrentDryDays ← 0
LongestDryDays ← 0
// INITIALISE ARRAY TO ZERO
FOR x ← 1 TO 365
Rain\[x\] ← 0
NEXT x
// INPUT RAINFALL DATA
FOR x ← 1 TO 365
PRINT "Enter rainfall in millimeters for day ", x
INPUT Rain\[x\]
// Add to total rainfall
TotalRainMM ← TotalRainMM + Rain\[x\]
// Count no rainfall days
IF Rain\[x\] = 0 THEN
NoRainDays ← NoRainDays + 1
// Count consecutive dry days
CurrentDryDays ← CurrentDryDays + 1
// Update longest dry period
IF CurrentDryDays > LongestDryDays THEN
LongestDryDays ← CurrentDryDays
ENDIF
ELSE
// Reset consecutive dry counter
CurrentDryDays ← 0
ENDIF
NEXT x
// -----------------------------------
// CALCULATIONS
// -----------------------------------
// Convert millimeters to centimeters
TotalRainCM ← TotalRainMM / 10
// Calculate average rainfall in millimeters
AverageRain ← TotalRainMM / 365
// -----------------------------------
// OUTPUT RESULTS
// -----------------------------------
PRINT "Total rainfall for the year: ", ROUND(TotalRainCM,2), " cm"
PRINT "Average rainfall for the year: ", ROUND(AverageRain,4), " mm"
PRINT "Number of days with no rainfall: ", NoRainDays
PRINT "Longest consecutive dry period: ", LongestDryDays, " days"
// -----------------------------------
// DROUGHT CHECK
// -----------------------------------
IF LongestDryDays >= 15 THEN
PRINT "Drought warning: There is a drought period."
ENDIF