Определить, являются ли значения в файле упорядоченными - 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.

Объяснение кода листинга программы

  1. В начале кода в переменную a записывается массив строк из файла input.txt, каждая строка разделена на отдельные слова, а затем каждое слово преобразуется в целое число.
  2. Затем вызывается функция write, которая выводит на экран результат сравнения отсортированного массива a с исходным массивом a.
  3. Если массивы равны, то выводится сообщение Является, иначе выводится сообщение Не является.

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы