Социальная сеть бобровская рисунки 1 и 2 представляют одну и ту же информацию о дружбе между бобрами.Например, бобер А дружит только с бобром В, если же он хочет дружить с бобром С, он нуждается в официальном представлении через бобра В. Дана таблица (рисунок 3) дружбы 7 бобров.Какое минимальное число официальных представлений нужно сделать А,чтобы он подружился с G?

#include <iostream>

using namespace std;

int main()

{

   int min, imin, z;

   cout<<"Введите количество элементов: ";

   cin>>z;

   int a[z];

   cout<<"Введите элементы, каждый с новой строки:"<<endl;

   for(int i = 0; i < z; i++){

       cin>>a[i];

   }

   min = a[0];

   imin = 0;

   for(int i = 1; i < z; i++){

       if(abs(min) > abs(a[i])){

           min = a[i];

           imin = i;

       }

   }

   cout<<"Номер минамального по модулю элемента: "<<imin;

}

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.