Массив: Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы. - VB

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

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

1. Написать программу, в которой вначале по запросам вводятся: а) размерность (с проверкой правильности) и б) элементы одномерного целочисленного массива. Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы. Если массив не содержит отрицательных элементов, вы-дать сообщение: " Массив не содержит отрицательных элементов". PS если не трудно прикрепите исходники проекта файлом, спасибку тыкну))

Решение задачи: «Массив: Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы.»

textual
Листинг программы
Option Base 1 'Г€Г*äåêñГ*öèÿ Г± 1
Private Sub Form_Load()
Dim a() As Integer
Dim a2() As Integer
Dim i, i2, N As Integer
 
N = -1
i2 = 0
'ÏðîâåðêГ* Г°Г*çðÿäГ*îñòè
While N <= 0
N = InputBox("Ââåäè Г°Г*çìåðГ*îñòü Г¬Г*Г±Г±ГЁГўГ* (ïîëîæèòåëüГ*îå öåëîå ÷èñëî)")
Wend
 
'Ââîä ýëåìåГ*òîâ
ReDim a(N) As Integer
For i = 1 To N
a(i) = InputBox("Ââåäèòå ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ* В№" + Str(i))
Next
 
'ÂûáîðêГ* îòðèöГ*òåëüГ*ûõ Гў Г*îâûé Г¬Г*Г±Г±ГЁГў
ReDim a2(N) As Integer
For i = 1 To N
If a(i) < 0 Then
i2 = i2 + 1
a2(i2) = a(i)
End If
Next
 
'Âûâîä
Print "Г‚Г*Гё Г¬Г*Г±Г±ГЁГў: " & Vbclf&
For i = 1 To N
Print a(i)
Next
 
If i2 = 0 Then
Print "ГЊГ*Г±Г±ГЁГў Г*ГҐ ñîäåðæèò îòðèöГ*òåëüГ*ûõ ýëåìåГ*òîâ" 'ÌîæГ*Г® ÷åðåç MsgBox
Else
Print "Íîâûé Г¬Г*Г±Г±ГЁГў: " & Vbclf&
For i = 1 To i2
Print a2(i)
Next
End If
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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