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