Посчитать число скобочек?

Щя кину перевод

3) 20%
Вам дается набор круглых скобок. Ваша задача-выяснить, является ли данный набор фигурных скобок допустимым
или нет.
Входные данные содержат только одну строку с набором фигурных скобок(длина строки не более 1000)
без пробелов.
Если заданная последовательность фигурных скобок допустима, выведите "ДОПУСТИМО" или "НЕДОПУСТИМО" в другом случае.
Ввод: ()(())
Вывод: ДЕЙСТВИТЕЛЬНЫЙ
Ввод: ()()((
Вывод: НЕДОПУСТИМЫЙ
Ввод: ()())(
Вывод: НЕДОПУСТИМЫЙ
Примечание: Для допустимых ситуаций для каждой открытой фигурной скобки должны быть закрытые фигурные скобки, А закрытые фигурные
скобки не могут начинаться до открытых фигурных скобок. Кроме того, количество открытых и закрытых фигурных скобок должно быть
равный

Хотя там порядок ещё важен

Вспоминаются книжки где советуют прибавлять единицу и убавлять на каждую скобку. Тут ещё проверять что в минус не ушел

Ооо прям в точку, если можно я буду очень благодарен ☺️

Привет
ковыряюсь с циклами и массивами на visual basic
можете подсказать идею как удалить элемент массива если он удовлетворяет условию
что-то в интернете не могу найти решение

Сдвинуть элементы после него на один в лево и уменьшить размер

Если массив динамический

а как это сделать?

Dim mas_y As Double()
       Dim i As Integer
       mas_y = m_x
       For i = 0 To m_x.Length
           If mas_y(i) < 0 Then
               mas_y(i) = min
           End If
           If mas_y(i) > max Then
               mas_y(i) = max
           End If
           If mas_y(i) = 0 Then

           End If
       Next
мне надо это сделать если элемент массива равен нулю

вот в таком формате я избавилась от нулей, но где-то ошибка тк последний элемент нового массива всегда ноль
как это исправить

Dim mas_y As Double()
       ReDim mas_y(UBound(m_x))
       Dim i, j As Integer
       For i = 0 To (m_x.Length - 1)
           If m_x(i) < 0 Then
               m_x(i) = min
           End If
           If m_x(i) > 0 Then
               m_x(i) = max
           End If
       Next
       For i = 0 To UBound(m_x)
           If m_x(i) <> 0 Then
               mas_y(j) = m_x(i)
               j = j + 1

           End If
       Next
       ReDim Preserve mas_y(j)

а длину массива можно уменьшить?

мне кажется это не вариант
нужно как то в цикле исправить
правда пока не нашла решение

в конце все равно ноль вылезает

Индекс выходит за пределы во втором цикле. Нужно переписать:

For i = 0 To (UBound(m_x) - 1)
  ...
Next

Возможно у Вас в выводе та же проблема

Ну я приблизительно так же вышла из положения
Я сказала redim preserve mas_y(j-1)

Да, оказывается в VB идиотская инициализация через ReDim (и вообще всех масивов) - если пишешь ReDim arr(5) он создаёт диапозон от 0 до 5 а не как все привыкли (0 до 4)

Да, поэтому запомнила на одну ячейку меньше