Укажите наибольшее и наименьшее натуральные четырёхзначные числа в системе счисления с основанием 2 1000 и 1 1111 и 1 1111 и 1000 1110 и 1111 1 и 1000

1000 > 1
1111 > 1
1111 > 1000
1110< 1111
1<1000

1) 452=371  (452_9 = 4∙9"2+5∙9"1+2∙9"0 = 324+45+2 = 371_10)
2) 807=2055    (807_16 = 8∙16"2+0∙16"1+7∙16"0 = 2048+0+7 = 2055_10)
3) 10111=23 (10111_2 = 1∙2"4+0∙2"3+1∙2"2+1∙2"1+1∙2"0 = 16+0+4+2+1 = 23_10)
4)423=213  (423_7 = 4∙7"2+2∙7"1+3∙7"0 = 196+14+3 = 213_10)
5)223=43  (223_4 = 2∙4"2+2∙4"1+3∙40 = 3"2+8+3 = 43_10)
6)724=468  (724_8 = 7∙8"2+2∙8"1+4∙8"0 = 448+16+4 = 468_10)

В скобках указано решение. после знака _ это значит, что число должно быть указано ниже числа маленькими буквами ( ). " значит, что чисто будет вверху маленькой буквой ( )

1. Вариант современного решения на современной версии языка Паскаль

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

begin
  var a:array[,] of integer:=(
      ( 2, 1,-1, 4),
      (-3, 1,-4, 1),
      ( 2, 1, 2, 3),
      ( 2, 2, 5, 4),
      (-3,-1,-3, 1));
  Writeln('*** Исходная матрица ***');
  a.Println(3); Writeln(3*a.ColCount*'-');
  var s:=a.Col(2).Where(x->Abs(x)<=3);
  Writeln('Элементов ',s.Count,', их сумма равна ',s.Sum)
end.

Результат
*** Исходная матрица ***
  2  1 -1  4
 -3  1 -4  1
  2  1  2  3
  2  2  5  4
 -3 -1 -3  1

Элементов 3, их сумма равна -2

2. Вариант решения "Так писали наши дедушки и так нас учат в школе"

const
  m=5;
  n=4;
  a:array[1..m,1..n] of integer=(
      ( 2, 1,-1, 4),
      (-3, 1,-4, 1),
      ( 2, 1, 2, 3),
      ( 2, 2, 5, 4),
      (-3,-1,-3, 1));

procedure SumCol(m,k:integer; var p,s:integer);
  var
    i:integer;
  begin
    s:=0; p:=0;
    for i:=1 to m do
      if Abs(a[i,k])<=3 then begin
        s:=s+a[i,k];
        p:=p+1
        end
  end;

var
  i,j,kol,sum:integer;
 
begin
  Writeln('*** Исходная матрица ***');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:3);
    Writeln
    end;
  for i:=1 to n do Write('---');
  Writeln;
  SumCol(m,3,kol,sum);
  Writeln('Элементов ',kol,', их сумма равна ',sum)
end.

Результат
*** Исходная матрица ***
  2  1 -1  4
 -3  1 -4  1
  2  1  2  3
  2  2  5  4
 -3 -1 -3  1

Элементов 3, их сумма равна -2