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

Предыдущий
вопрос Следующий
вопрос

Программа находит минимальное и максимальное положительные числа, записанные в файле "input.txt" и выводит их в файл "output.txt". Если таких чисел нет, программа выводит "Нет положительных чисел".

program MinMaxPositiveNumbers;
var
inputFile, outputFile: Text;
num, min, max: integer;
found: boolean;
begin
assign(inputFile, 'input.txt');
reset(inputFile);
assign(outputFile, 'output.txt');
rewrite(outputFile);
min := maxint;
max := -maxint;
found := false;
while not eof(inputFile) do
begin
readln(inputFile, num);
if num > 0 then
begin
found := true;
if num < min then
min := num;
if num > max then
max := num;
end;
end;
if found then
begin
writeln(outputFile, 'Минимальное положительное число: ', min);
writeln(outputFile, 'Максимальное положительное число: ', max);
end
else
writeln(outputFile, 'Нет положительных чисел');
close(inputFile);
close(outputFile);
end.

Программа сначала открывает файл "input.txt" для чтения и файл "output.txt" для записи. Затем программа проходит по каждому числу из файла, находит минимальное и максимальное положительные числа, если они есть, и записывает их в файл "output.txt". Если положительные числа отсутствуют, программа выводит соответствующее сообщение.

Поместите положительные числа в файл "input.txt" и запустите программу. Результат будет записан в файл "output.txt".