Определить является ли последовательность упорядоченной по возрастанию - 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
- 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!"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
