15 marker 0478 v22 (how many marks might i get deducted?)
//declaring variables and arrays
DECLARE Rainfall : ARRAY[1:365] OF INTEGER
DECLARE TotalRain : REAL
DECLARE NoRain : INTEGER
DECLARE LongestNoRain : INTEGER
DECLARE AvgRain : ARRAY[1:365] OF REAL
//initialising array Rainfall to zero
FOR i ← 1 TO 365
Rainfall[i] ← 0
NEXT i
//entering data values into array Rainfall
FOR i ← 1 TO 365
OUTPUT “Enter amount of rain in millimetres: “
INPUT Rainfall[i]
NEXT i
//initialising variables
TotalRain ← 0
NoRain ← 0
LongestNoRain ← 0
FOR i ← 1 TO 365
AvgRain[i] ← 0
NEXT i
//totalling rainfall in a year, averaging, and counting days of rain
FOR i ← 1 TO 365
TotalRain ← TotalRain + ROUND(Rainfall[i]/10, 2)
AvgRain[i] ← ROUND(Rainfall[i], 4)
IF Rainfall[i] = 0 THEN
NoRain ← NoRain + 1
ENDIF
IF Rainfall[i] = 0 THEN
LongestNoRain ← 1
IF Rainfall[i+1] = 0 THEN
LongestNoRain ← LongestNoRain + 1
ENDIF
ENDIF
NEXT i
IF LongestNoRain > = 15 THEN
OUTPUT “Drought occurred”
ENDIF
OUTPUT TotalRain, “was the total rain in the year”
OUTPUT NoRain, “days it did not rain”
FOR i ← 1 TO 365
OUTPUT “Daily rainfall”, AvgRain[i]
NEXT i
this was my code exactly i just couldnt do the longest streak thing i did give it a try though how many marks will i get deducted