Напишите программку которая находит минимальное и наибольшее посреди положительных чисел,

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

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

begin

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

 if a.Countgt;0 then WriteAllText('output.txt', 'a.Min a.Max')

end.

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