Наведені нижче дві “неправильні” рівності стануть правильними, якщо числа першої розглядати як трійкові, а другої – як шістнадцяткові: 11 + 12 = 100 20 - 8 = 18 для кожного з поданих нижче арифметичних виразів треба знайти мінімальну основу системи числення n (2≤n≤20), в якій цей вираз стане рівністю. 1) а3 - 69 = 3а 2) 72 + 87 = 139 3) 101 * 11 = 1111 4) 3 * 22 = 132 5) 105 * 4 = 424 6) 333 - 134 = 144 7) 35 + 53 = 121 результат: сім чисел, записаних послідовно через пробіл, що основу системи числення n для кожної зі семи рівностей, наприклад: 9 8 7 6 5 4 3 основи мають бути вказані за порядком запису рівностей.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-28,25); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
  Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
  var imin:=a.IndexMin;
  Writeln('Номер минимального элемента- ',imin+1,
    ', его значение равно ',a[imin])
end.

Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28

Var i,n,fs,ls: integer;
    fsz,indf,indl: int64;
    f: file of integer;
begin
  write('n = '); readln(n);
// запись в файл целых чисел  
  assign(f,'input.txt');
  rewrite(f);
  for i:=1 to n do write(f,random(-3000,8000));
  close(f);
// замена элементов в файле  
  assign(f,'input.txt');
  reset(f);
  fsz:=FileSize(f); 
  indf:=0;
  for i:=0 to fsz-1 do
  begin
    read(f,n);
    if ((n mod 2)<>0) and (indf=0) then
    begin
      indf:=i; fs:=n;
    end;  
    if (n mod 2)=0 then
    begin
      indl:=i; ls:=n;
    end;  
  end;
  reset(f);
  seek(f,indf);
  write(f,ls);
  reset(f);
  seek(f,indl);
  write(f,fs);
  close(f);
end.