Определить среднее количество осадков, выпавших в дни, когда шел дождь - QBasic

Формулировка задачи:

В массиве кол-во осадков выпавших за каждый день августа. Определить среднее количество осадков , выпавших в дни , когда шел дождь. Помогите пожалуйста )

Решение задачи: «Определить среднее количество осадков, выпавших в дни, когда шел дождь»

Листинг программы

cls
DIM A(31)
FOR I=1 TO 31
INPUT "KOLI4ESTVO OSADKOV-";A(I)
IF A(I)>0 THEN S=S+A(I): D=D+1
NEXT
IF D=0 THEN ?"OSADKOV NE BILO" ELSE ?"SREDNEE KOLI4ESTVO OSADKOV - ";S/D

Объяснение кода листинга программы

Задается количество дней в месяце (31 день).
В цикле от 1 до 31 происходит запрос на ввод количества осадков.
Если количество осадков больше 0, то к сумме осадков прибавляется значение переменной A(I), а к количеству дней с осадками прибавляется 1.
Если количество дней с осадками равно 0, то выводится сообщение ОСАДКОВ НЕ БЫЛО.
Если количество дней с осадками больше 0, то выводится сообщение СРЕДНЕЕ КОЛИЧЕСТВО ОСАДКОВ -, а затем вычисляется и выводится среднее количество осадков (S/D).