Убывающая последовательность и сжатие одномерного массива - VB

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

Помогите сделать пожалуйста... Задача 1 Составьте программу на языке VBA, которая определяет, является ли последовательность убывающей (длина последовательности не ограничена). Признаком конца последовательности является ввод нуля. Задача 2 Составьте программу на языке VBA, которая сжимает одномерный массив A длинной n элементов путем удаления элементов, совпадающих с числом L, и указывает количество удаленных элементов. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n ) ), выдавать сообщение об ошибке.Добавлено через 7 минут Для первой начал, но не могу додумать...
Sub qq()
Dim a As Double, b As Double, X As String
b = InputBox("Ââåäèòå ÷èñëî (0 - ГЄГ®Г*ГҐГ¶ ââîäГ*)")
Do
b = a
  a = InputBox("Ââåäèòå ÷èñëî (0 - ГЄГ®Г*ГҐГ¶ ââîäГ*)")
  If a = 0 Then Exit Do
    If a < b Then X = "ÏîñëåäîâГ*òåëüГ*îñòü óáûâГ*ГѕГ№Г*Гї" Else X = "ÏîñëåäîâГ*òåëüГ*îñòü Г*ГҐ ÿâëÿåòñÿ óáûâГ*ГѕГ№ГҐГ©"
    Loop
MsgBox X
End Sub

Код к задаче: «Убывающая последовательность и сжатие одномерного массива - VB»

textual
Sub qq()
    Dim a#, b#, f%
    b=1E308
    Do
        a = Val(InputBox("Введите число (0 - конец ввода)"))
        If a = 0 Then Exit Do
        if a>=b then f=1
        b = a
    Loop
MsgBox IIf(f = 0, "Последовательность убывающая", _
"Последовательность не является убывающей")
end sub

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы