Удалить все отрицательные элементы из массива

24.12.2009, 15:13. **Показов** 3846. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!!!

1 Нужно удалить все отрицательные элементы из массива(любово одномерного или двумерного),
2 вывести новую размерность на экран

@yaser · 24.12.2009, 18:59

Для одномерного массива:

Если считать числа в массиве тип: Integer, считать, что массив задан в ячейках первого столбца с ячейки А1 по А(nN).

Visual Basic

Private Sub CommandButton1_Click()
Dim a() As Integer, b() As Integer
Dim nN As Integer, nNewN As Integer, nI As Integer
 
  nN = InputBox("Введите количество элементов в массиве: ")
  ReDim a(nN)
  ReDim b(nN)
  
  For nI = 1 To nN
      a(nI) = Cells(nI, 1)
  Next
  
  nNewN = 1
  For nI = 1 To nN
      If a(nI) < 0 Then
      Else
         b(nNewN) = a(nI)
         Cells(nNewN, 3) = a(nI)
         nNewN = nNewN + 1
      End If
  Next
  
End Sub

Если необходимо только вывести числа >= 0 (без получения второго массива), то все строки с операциями с массивом b() можно убрать из кода, да и операции с первым массивом тоже можно опустить - работать только с ячейками.

eSc0rT
		1
	Удалить все отрицательные элементы из массива 24.12.2009, 15:13. Показов 3846. Ответов 1 Метки нет (Все метки) Помогите пожалуйста!!! 1 Нужно удалить все отрицательные элементы из массива(любово одномерного или двумерного), 2 вывести новую размерность на экран

	24.12.2009, 18:59