Дана последовательность из N целых чисел. Определить, является ли она строго возрастающей — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
CLS
INPUT n
FOR i = 1 TO n
        t = g
        INPUT " vvedite element"; g
        IF g < t THEN f = 1
NEXT
  
IF f <> 1 THEN PRINT "yes" ELSE PRINT "no"

Похожие записи/страницы: