Другие языки программирования и технологии

Изменить код.basic.Заранее спасибо

Мм.сеня перешли на изучение бейсика и сразу масивы.чуть не вьехал.просьба написать код,а то вообше не понимаю. дан код,он выводит среднее ариф. 30 чисел масива а.только из тех чисел нечетных. Надо дописать,чтобы выводило отдельно четных и нечетных.Как мне сказали там дописать 4 строчки, и ввести пару переменных.Спасибо заранее Вообщем сабж.Есть код,смылсл из веденного масива,30 чисел,считает сумму среднего арифмитического нечетных чисел.надо чтобы считал и четных и нечетных.На бейсике спс за ранее n=30 dim a(N) as integer dim i,x,y as integer dim S as single for i=1 do N input A(i) next i S=A(i) mode 2 if s>0 then x=x+A(i) y=y+1 end if next i i=x/y
ОИ
Олег Иоцус
5 983
Кстати, приведенный код должен давать ошибку на строке
S=A(i) mode 2
т. к. после завершения цикла i=N+1, а массив только да N

Dim N As Integer
Dim A() As Integer
Dim i As Integer, i1 As Integer, i2 As Integer
Dim S1 As Single, S2 As Single
N = 30
ReDim A(N)
For i = 1 To N
A(i) = InputBox("Введите " & i & "-е значение")
Next i
'
For i = 1 To N
If A(i) Mod 2 Then
i1 = i1 + 1
S1 = S1 + A(i)
Else
i2 = i2 + 1
S2 = S2 + A(i)
End If
Next i
'
If i1 > 0 Then
S1 = S1 / i1
MsgBox "Ср. арифметическое " & i1 & " нечетных = " & S1
Else
MsgBox "Нечетных значений нет"
End If
If i2 > 0 Then
S2 = S2 / i2
MsgBox "Ср. арифметическое " & i2 & " нечетных = " & S2
Else
MsgBox "Четных значений нет"
End If

Это VB6, поэтому такое объявление переменных. В VB.net - чуть проще
Ильяс Акаев
Ильяс Акаев
20 339
Лучший ответ
Олег Иоцус Большое человеческое спасибо!
Олег Иоцус На преподаватель говорит что лучше учите бейсик,тк он проще намного и не будет гемороя как с++.
вы согласны?
Интересно, c чего вы перешли на изучение Бейсика?
Олег Украинец
Олег Украинец
64 502
Олег Иоцус с с++
главное у того преподавателя,дальше вывода на экран,и цикл цикл не проходили
Зачем добавил mode 2 - кстати такой операции нет в Бейсике!
Или если надо отдельно чётные и нечётные, то надо так и указывать!
Валера Золотарев
Валера Золотарев
76 473
Олег Иоцус пфф сеня училка говорила что мод типо на 2 делиться без остатка
ладно ,не каких шуток тут нету.все списавал с доски .может еше скан блогсхемы сделать вам ,раз неверите в такое чудо ?

Похожие вопросы