TOP3_3

CLS
CONST ArrayLimit = 1000
DIM A(1 TO ArrayLimit) AS INTEGER
DIM AI AS INTEGER, Limit AS INTEGER
AI = 0
PRINT "Введите последовательность целых чисел. Завершить ввод можно, введя 0."
DO
    AI = AI + 1
    IF AI > ArrayLimit THEN
        PRINT "Кажется, вы упоролись"
        END
    END IF
    PRINT "A("; AI; ") = ";
    INPUT "", A(AI)
LOOP UNTIL A(AI) = 0
Limit = AI - 1
DIM Counter AS INTEGER
'Ноль не учитывается! В условии неясно, следует ли его учитывать
FOR AI = 1 TO Limit - 1
    IF A(AI) < A(AI + 1) THEN Counter = Counter + 1
NEXT AI
PRINT "Число элементов массива, чье значение < значения следующего элемента:"; Counter