Определить является ли последовательность упорядоченной по возрастанию - QBasic
Формулировка задачи:
Дана последовательность вещественных чисел a1,a2, ... an . Определить является ли она упорядоченной по возрастанию. В случае отрицательного ответа определить порядковый номер числа, нарушающего такую упорядоченность.
Решение задачи: «Определить является ли последовательность упорядоченной по возрастанию»
textual
Листинг программы
CLS INPUT "razmernost massiva", n DIM a(n) FOR i = 1 TO n INPUT a(i) NEXT FOR i = 1 TO n PRINT a(i); NEXT PRINT FOR i = n TO 2 step-1 IF a(i) <=a(i - 1) THEN f = i NEXT IF f <> 0 THEN PRINT "net! nomer:"; f ELSE PRINT "da!"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д