Найти значения выражения A-B, используя алгоритм алгебраического сложения на ДСОК чисел, представленных в форме фиксированной запятой, длина разрядной сетки равна 6 A= -15, B=-5

1)-63,611=-63611*10^-3  

2)60.509 =60509*10^-3

 

1)16-ой

 

63.611

 63/16   =03F

 .611=9C6

и того -   03F 9C6

 

2)60= 3С6

509= 824 

 и того  3С6 824  

 

 5DB0000=16^7*4 + 16^6*5 + 16^5*13 + 16^4*11 + 16^3*0 + 16^2*0 + 16^1*0 + 16^0*0 = 1073741824 + 83886080 + 13631488 + 720896 здесь нулли  = 1171980288

 

C88B6000   =16^7*12 + 16^6*8 + 16^5*8 + 16^4*11 + 16^3*6 = 3364577280

 

 

F6E5 = 16^4*15 + 16^3*6 + 16^2*14 + 16^1*5 =1011280

 

8D7=  16^2*  8 + 16^1*  13 + 16^0*7 = 2048 + 208 + 7 = 2263 

 

 

 

 

 

 

Program pr;
var
  arr: array[1..5] of array[1..5] of integer;
  max, nmax: integer;
begin
  randomize;
 
  {Формирование массива}
  for var i := 1 to 5 do
    for var j := 1 to 5 do
      arr[i][j] := random(20) - 10;
      
  {Показ массива}
  for var i := 1 to 5 do
    for var j := 1 to 5 do
      write(arr[i][j], ' ');
  writeln();
 
  {Поиск максимального элемента}
  max := arr[1][1];
  for var i := 1 to 5 do
    for var j := 1 to 5 do
      if (max <= arr[i][j]) then max := arr[i][j];
 
  {Подсчет максимальных элементов}
  nmax := 0;
  for var i := 1 to 5 do
    for var j := 1 to 5 do
      if (arr[i][j] = max) then nmax := nmax + 1;
      
  writeln('Максимальный элемент: ', max);
  writeln('Количество таких элементов: ', nmax);
end.