Два числа Х= -11,5(10) и У=-5,7 (10) перевести в двоичную систему счисления, выразить в обратном коде и сложить. Результат перевести в десятичную систему счисления.

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=MatrixRandom(7,7,0,9);
  var k:=0;
  for var i:=0 to 6 do begin
    for var j:=0 to 6 do begin
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.

Тестовое решение:
  2  1  7  3  3  2  7
  9  2  9  2  0  5  5
  4  2  6  9  4  6  0
  1  0  3  5  4  5  9
  6  3  6  0  2  0  8
  0  8  4  3  2  1  8
  6  0  4  4  5  4  0
Кол-во элементов на [1,5]: 27

Вариант "совсем для школы"

const
  n=7;
var
  a:array[1..n,1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(10);
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.

const

 nmax = 100;

 n = 10;

var

 a: array[1..nmax, 1..nmax]of integer;

var

 i, j: byte;

begin

 for i := 1 to N do

 begin

   for j := 1 to N do

   begin

     A[i, j] := Random(-10, 10);

     write(A[i, j]:5);    

   end;

   writeln;

 end;

end.

Тестовое решение

  -2    7  -10   -3   -4    6   -6    8    0    8

  10   -8   10    2   -2    7   -8   -7    5    9

  -4    4    3   -8   -4   -4   -8    7    1   10

  -8    3   -5    0    3   -9   -7    1   -7   -4

   2    2    8   -2    1   10   -7    7    6    7

  -6   -2    9    8   -4    4   -6    8   -9   10

   4   -3   -4    1    5   -3    7    0   10   -4

   3    2   10   -1   -3    4    7   -5    2   -3

  -8   -4   -9    5    6    4    4   -2   -7    9

   8   -4    0   -7    3   -6   -5   -3    3   -6