Проверить, является ли последовательность из 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


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