{* Задача87 *}

REM basic

' В простую переменную последовательно вводятся N чисел. Сколько чисел больших своих соседей слева?


10 CLS
30 INPUT "Сколько будет чисел?"; N%
40 KOL = 0
50 INPUT "Первое число ="; PRED
60 For I = 2 To N%
70 INPUT "Очередное число ="; X
80 If X > PRED Then KOL = KOL + 1
90 PRED = X
100 Next I
110 PRINT "Больше своих соседей слева"; KOL; "чисел из"; N% - 1; "возможных."
120 End