Series21. Дано целое число N (>1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет — вывести False.
Решение Дмитрий:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
использовать Файлы алг Series21 (рез лог последовательность_возрастает) нач вещ A_ вещ A цел i файл файл1 i:=0 файл1:=открыть на чтение ("Series21.txt") ввод файл1, A вывод A," " A_:=A нц пока не конец файла(файл1) ввод файл1, A вывод A," " если A_>=A то i:=i+1 все кц вывод нс закрыть (файл1) последовательность_возрастает:=i=0 кон |
Файл Series21.txt
|
1 |
23 33 45 99 100 134 150 |
Другие задачи из раздела Series можно посмотреть здесь.
Комментарии: