Question

Напишите программу которая находит минимальное и максимальное среди положительных чисел, записанных в файле и выводит из в другой файл.Учтите,что таких чисел может и не быть
Прошу очень поскорей
На паскале

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadAllText('input.txt').ToIntegers.Where(t -> t > 0);

 if a.Count>0 then WriteAllText('output.txt', $'{a.Min} {a.Max}')

end.

Первое вложение - файл input.txt, второе - output.txt

24939f5afc59a152c4cf660b9b662e83.txt

284329b5b4bdc61b75d38e535d995468.txt