Проверить, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей - QBasic

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

Составить программу , проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей. Задачка вроде легкая, но как вывести ответ конкретно да или нет не догоняю! Заранее спасибо

Код к задаче: «Проверить, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей - QBasic»

textual
CLS
INPUT "vvedite chislo ", a 
FOR i = 2 TO 10 
   INPUT "vvedite ocherednoe chislo ", b
   IF b < a THEN f=1 
   a = b
NEXT
IF f THEN PRINT "NO" ELSE PRINT "YES"
END

11   голосов, оценка 4.545 из 5


СОХРАНИТЬ ССЫЛКУ