Напишите программу которая находит минимальное и максимальное - вопрос №9384588 от mercurry 07.04.2021 14:09

Question

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

mercurry · Answer

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