Задание с массивом. есть решение. - VB
Формулировка задачи:
Друзья, необходима небольшая помощь. Есть задание, я его решил как смог, учитель говорит, что не правильно,. Пожалуйста помогите найти ошибку или возможно предложите свой вариант решения. Ниже собственно само задание и решение мое. Заранее спасибо!
Задание. Написать программу, которая сначала вводит n чисел в одномерный массив, а затем определяет каких чисел в массиве больше, положительных или отрицательных.
Решение задачи: «Задание с массивом. есть решение.»
textual
Листинг программы
Private x(1 To 50) As Single Private i As Integer Private n As Single Private Sub Command1_click() n = Val(Text1.Text) For i = 1 To n x(i) = InputBox("x(" & i & ")=", x(i)) List1.AddItem x(i) Next i End Sub Private Sub Command2_Click() Dim pp, oo As Single For i = 1 To n If x(i) > 0 Then pp = pp + 1 'End If 'Next i If x(i) < 0 Then oo = oo + 1 Next i 'End If If oo > pp Then Print "Otricatelnix bolse" If pp = oo Then Print "otric i poloz ravno" If pp > oo Then Print "polozitelnix bolse" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д