При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными - VB

Узнай цену своей работы

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

При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными. BASIC + блок схема Помогите

Решение задачи: «При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными»

textual
Листинг программы
input"k-?",k
For i = 1 To k
print "a";k:input c
If c Mod 2 = 1 Then 
S = S + c:n=n+1
end if
Next i
Cls
if n>0 then
S = S / n
Print "Sa="; S
else
print "not"
end if

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы