{* Задача60 *}

REM basic

' Дан целочисленный массив из 30 элементов. Элементы массива могут
' принимать значения от 0 до 1000. Составьте программу, которая находит и выводит среднее арифметическое всех элементов массива, имеющих нечётное значение.


{N=30
}{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 = 30
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) Mod 2  0 Then
x = x + 1
y = y + a(i)
End If
Next i
s = y / x
PRINT Using "###.##"; s
End