zadach73.BAS

{* Задача73 *}

REM basic

' Подсчитать и вывести среднее арифметическое элементов массива,оканчивающихся нулем


CLS
n = 30
Dim a(n)
For i = 1 To n
    INPUT a(i)
Next
For i = 1 To n
    If a(i) Mod 10 = 0 Then s = s + a(i): x = x + 1
Next
s = s / x
PRINT "s="; s
End