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

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

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

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

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.750 из 5


СОХРАНИТЬ ССЫЛКУ