{* Задача97 *}

REM basic

' Дан одномерный массив из N элементов. Посчитать среднее арифметическое элементов, кратных трем.


10 N = 10
20 Dim A%(N)
30 For I = 1 To N
40 PRINT "Введи элемент массива №"; I;
50 INPUT A%(I)
60 Next I
70 S = 0: KOL = 0
80 For I = 1 To N
90 If A%(I) Mod 3 = 0 Then S = S + A%(I): KOL = KOL + 1
100 Next I
110 If KOL = 0 Then PRINT "Кратных трем нет": GoTo 130
120 PRINT "Среднее арифметических чисел, кртаных трем = "; S / KOL
130 End