Определить, являются ли значения в файле упорядоченными - PascalABC.NET
Формулировка задачи:
Дано файл целых чисел. Определить, являться ли значение в файле упорядоченными (по возрастанию или убыванию).
Решение задачи: «Определить, являются ли значения в файле упорядоченными»
textual
Листинг программы
begin var a := ReadLines('input.txt').SelectMany(s -> s.ToWords).Select(x -> x.ToInteger).ToArray; write(Arr('Не является', 'Является')[ord(a.SequenceEqual(a.Sorted) or a.SequenceEqual(a.SortedDescending))]) end.
Объяснение кода листинга программы
- В начале кода в переменную
a
записывается массив строк из файлаinput.txt
, каждая строка разделена на отдельные слова, а затем каждое слово преобразуется в целое число. - Затем вызывается функция
write
, которая выводит на экран результат сравнения отсортированного массиваa
с исходным массивомa
. - Если массивы равны, то выводится сообщение
Является
, иначе выводится сообщениеНе является
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д