Назвать элементы обозначеные цифрами, по порядку . друг

// PascalABC.NET 3.0, сборка 1088
const
  nn=100;

type
  Vector=array[1..nn] of integer;

function Min(a:Vector; n:integer):integer;
var
  i,m:integer;
begin
  m:=a[1];
  for i:=2 to n do
    if a[i]<m then m:=a[i];
  Min:=m
end;

var
  V:Vector;
  i,n,m,mn:integer;
begin
  Write('Количество элементов вектора: '); Read(n);
  Write('Значение m: '); Read(m);
  Randomize;
  Writeln('*** Сгенерированный вектор ***');
  for i:=1 to n do begin
    V[i]:=Random(101)-50;
    Write(V[i],' ')
    end;
  Writeln;
  mn:=Min(V,n);
  if mn<=m then Writeln('Минимум ',mn,' не превышает ',m)
  else Writeln('Минимум ',mn,' превышает ',m)
end.

Тестовое решение:
Количество элементов вектора: 20
Значение m: -42
*** Сгенерированный вектор ***
-12 10 -47 8 6 -22 -4 8 -50 -2 36 -38 -39 -41 11 -46 41 -22 -50 24
Минимум -50 не превышает -42

Используем сложение "в столбик".

   5 3
+ 2 5

1 2 2
В младшем разряде 3+5 дают число, большее 5, а мы видим цифру 2, следовательно, получилось 12 и произошел перенос 1 в старший разряд, а 2 - это остаток. Но мы знаем, что 3+5 = 8, т.е. разница составила +4, тогда основание системы счисления на 4 меньше десяти, т.е. равно 6.
Проверим по старшему разряду.
5+2+1=8 (учли +1 переноса). Но это в десятичной системе, а в шестверичной на 4 больше, т.е. 12. Что мы и видим.
Вторая часть данных для решения не нужна. Совершенно.
ответ: шестеричная система счисления.