Дана гистограмма, определите ее составляющее составляющие. Согласно ифре определите ее назначение по приведенному списку - название диаграммы
Озвания осей, легенда, подписи данных
1
Средняя скорость транспорта км/ч
Л A
3
2
60
50
40
30
20
10
о
скорость
Автобус
4
Грузовые
ковые
Леков
-L
Велосипеды
Мотоциклы,
1.
2.
3.
4.​

Обратный код от A это A' = 2^8 - 1 - A = Const - A
Схема вычитания путем суммы обратных кодов справедлива т.к.:
(A - B)' = A' + B'' = (Const - A) + (Const - (Const - B)) = Const - (A - B)

самый левый бит - это бит знака. если там 1 - то число отрицательное. Например, пусть дан обратный код:
F' = 0010 1010, инвертируем биты, получаем:
F = 1101 0101 - смотрим на левую цифру (старший разряд) он равен 1, значит приписываем минус:
F = - (0101 0101) = -85
 
а)
19' = (0001 0011)' = 1110 1100
14' = (0000 1110)' = 1111 0001

F' = 19 - 14 = 19' + 14'' = 19' + 14 = 
1110 1100 +
0000 1110 = 
1111 1010

F = F'' = (1111 1010)' = 0000 0101 = 5

б) F' = 19' + 43''= 
1110 1100 + 
0010 1011 =
0101 0111 (тут переполнение) 

F = 110 1000 = -010 1000 = -24

в) F' = 43 - 25 = 43' + 25'' = 
1101 0100 +
0001 1001 =
1110 1101

F = F'' = (1110 1101)' = 0001 0010 = 18

Var
  mas: array [,] of integer;
  i,j,m,n,s,max: integer;
  f:boolean;
begin 
write('Введите размерность массива: ');
readln(n); 
write('Введите число m: ');
readln(m);
setlength(mas,n+1,n+1);
for i:=1 to n do
  begin;
  for j:=1 to n do
    begin
    mas[i,j]:=random(-m,m);
    write(mas[i,j]:6);
    if (j>i) and (mas[i,j]=0) then s:=s+1;
    end;
  writeln;
  end;
j:=n;
f:=false;
for i:=1 to n do
  begin
  if (mas[i,j] mod 2=0) then
       begin
       if f=false then
         begin
         max:=mas[i,j];
         f:=true;
         end;
       if (mas[i,j]>max) then max:=mas[i,j];
       end;
  j:=j-1;
  end;
writeln('Число нулей над гл.диагональю: ',s);
writeln('Максимальный четный на доп.диагонали: ',max);
end.