Массив: Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д