Question

Нужна помощь с информатикой всего 2 задачи! Даю много баллов) Напишите программу которая находит минимальное и максимальное среди чётных положительных чисел записанных в файле и выводит результат в другой файл В файле записано не более 100 целых чисел вывести в другой текстовый файл те же числа отсортированные в порядке возрастания

Answer 1

Задача 1.
var
  f:Text;
  n,nmax,nmin:integer;
begin
  Assign(f,'input.txt'); Reset(f);
  nmax:=-32786; nmin:=32767; {границы представления integer}
  while not Eof(f) do begin
    Readln(f,n);
    if (n>0) and (n mod 2=0) then
      if nmax<n then nmax:=n
      else
        if nmin>n then nmin:=n
  end;
  Close(f);
  Assign(f,'output.txt'); Rewrite(f);
  Writeln(f,nmin,' ',nmax);
  Close(f)
end.

Задача 2.
const
  m=100; { максимальное количество чисел в файле }
var
  f:Text;
  i,j,n,k:integer;
  a:array[1..m] of integer;
begin
  { читаем данные из файла в массив }
  Assign(f,'input.txt'); Reset(f);
  i:=0;
  while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
  Close(f);
  n:=i;
  { сортируем массив по возрастанию методом пузырька }
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
  { заполняем файл из массива }
  Assign(f,'output.txt'); Rewrite(f);
  for i:=1 to n do Writeln(f,a[i]);
  Close(f)
end.

Вложение: пример файла input.txt

Answer 2

Для решения этой задачи можно воспользоваться языком программирования Python. Вот пример программы, которая решает данную задачу:

# Открываем файл для чтения
with open('input.txt', 'r') as file:
    numbers = file.read().split()  # Читаем числа из файла и разбиваем их на отдельные элементы списка

# Преобразуем строки в целые числа
numbers = [int(num) for num in numbers]

# Фильтруем четные положительные числа
even_positive_numbers = [num for num in numbers if num > 0 and num % 2 == 0]

# Находим минимальное и максимальное значение
min_num = min(even_positive_numbers)
max_num = max(even_positive_numbers)

# Открываем файл для записи
with open('output.txt', 'w') as file:
    # Записываем минимальное и максимальное значение в файл
    file.write(f'Минимальное значение: {min_num}\n')
    file.write(f'Максимальное значение: {max_num}\n')
    # Записываем отсортированные числа в порядке возрастания
    sorted_numbers = sorted(even_positive_numbers)
    file.write('Отсортированные числа: ' + ' '.join(map(str, sorted_numbers)))

Эта программа сначала считывает числа из файла "input.txt", затем фильт