1 2 3 4 5 6 7 8 9 10 | INPUT "vvedite razmer massiva"; nDIM a(n)FOR i = 1 TO n INPUT "vvedite element"; a(i)NEXTFOR i = 2 TO n IF a(i) > a(i - 1) THEN k = k + 1 IF a(i) < a(i - 1) THEN m = m + 1NEXTIF k = n - 1 THEN PRINT "vozrastaet" ELSE IF m = n - 1 THEN PRINT "ubyvaet" ELSE PRINT "ne uporyadochen" |
Тестирование выполнено в программе QB64 ( Скачать )