Автомат получает на вход пятизначное число. по этому числу строится новое число по следующим правилам. 1. складываются отдельно первая, третья и пятая цифры, а также вторая и четвёртая цифры. 2. полученные два числа записываются друг за другом в порядке неубывания без разделителей. пример. исходное число: 63 179. суммы: 6 + 1 + 9 = 16; 3 + 7 = 10. результат: 1016. укажите наименьшее число, при обработке которого автомат выдаёт результат 723.

Сумма двух цифр = 7
Сумма трёх цифр = 23  (23 никак не может быть суммой двух цифр).
Из 7 >   меньшая цифра 0, большая 7  (0+7=7)
23 раскладываем на три цифры:
23 = 5+9+9
Заданное число :  50997

//Мне скучно, потому я пишу сомнительный код по примеру Эникея
//PascalABC.NET 3.2 сборка 1318

Var
  s,t,snew,curr,add,currsave:string;
  i,j,flag:integer;
begin
readln(s);
readln(t);
//s=lowcase(s);
t:=lowercase(t);
 while pos(' ',s)<>0 do
  begin
  flag:=0;
    curr:=copy(s,1,pos(' ',s));
    currsave:=curr;
    if pos(t,lowercase(curr))<>0 then
      begin
        flag:=1;
        delete(curr,pos(t,lowercase(curr)),length(t));
        for j:=1 to length(curr) do
        if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then
          flag:=0;
     end;
  if flag=1 then snew+=curr else snew+=currsave;
  delete(s,1,pos(' ',s));
  end;
curr:=s;
currsave:=curr;
flag:=0;
if pos(t,lowercase(curr))<>0 then
      begin
        flag:=1;
        delete(curr,pos(t,lowercase(curr)),length(t));
        for j:=1 to length(curr) do
        if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then
          flag:=0;
     end;
if flag=1 then
 snew+=curr
 else
 snew+=currsave;
writeln(snew);
end.

Пример ввода:
Который из всех котов кот съел мясо
Пример вывода:
Который из всех котов  съел мясо

Const m=5; n=6;
var 
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to m do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln; 
end.

Пример:
Исходный массив:
  44  30  35  16  47   3
  30  15  23  40  15  46
  46  11   2   3  16  40
  19  17   8  22  10  25
  41  23   9  47   7  36
Полученный массив:
   3  15   2   8   7