Выражение 3(А1+В1):5 (2В1-3А2) записанная в соответствии с правилами принятыми в математике
​

ответ:

{напишите программу, которая находит минимальное и максимальное

среди чётных положительных чисел, записанных в файле,

и выводит результат в другой файл.}

var f: text;

  min, max,a : integer;

  find: boolean; {есть/нет числа удовлетворяющие условию}

begin

  assign(f,'dan.txt'); reset(f);

  min: =0; max: =0;

  find: =false;

  while not eof(f) do

  begin

  read(f,a);

  if not find and (a> 0) and (a mod 2=0) then

  begin

  min: =a; find: =true;

  end

  else

  if find and (a> 0) and (a mod 2=0) and (min> a) then

  min: =a;

  if (a> 0) and (a mod 2=0) and (max

  max: =a;

  end;

  close(f);

  assign(f,'res.txt');

  rewrite(f);

  if max=0 then writeln(f,'чётных положительных чисел нет')

  else

  writeln(f,'min среди чётных положительных чисел =',min, chr(13),

      'max среди чётных положительных чисел нет',max);

  close(f);

end.

подробнее - на -

объяснение: