Определить, являются ли значения в файле упорядоченными - PascalABC.NET

Формулировка задачи:

Дано файл целых чисел. Определить, являться ли значение в файле упорядоченными (по возрастанию или убыванию).

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

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы