{* Задача49 *}

REM basic

' Дан целочисленный массив из 31 элемента, в котором записаны значения температуры воздуха в марте.
' Элементы массива могут принимать значения от (–20) до 20. Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням,
' и когда температура поднималась выше нуля.


N = 31
Dim A(1 To N) As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim s As Single
For i = 1 To N
INPUT A(i)
Next i
...
End
{Решение
}N = 31
Dim A(1 To N) As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim s As Single
For i = 1 To N
INPUT A(i)
Next i
x = 0
y = 0
For i = 1 To N
If A(i) > 0 Then
x = x + 1
y = y + A(i)
End If
Next i
s = y / x
PRINT "Средняя температура "; Using "######.###"; s
End