В одномерном массиве состоящий из 3
элементов найти разность всех чисел.
2. Дан одномерный массив. Элементов 10
Вывести на экран числа > 5.
3. В одномерном массиве состоящие из 10
элементов найти чётные числа и сложить
между собой

--1--
а) 453₁₀ = 111000101₂ = 705₈ = 1С5₁₆
б) 481₁₀ = 111100001₂ = 741₈ = 1E1₁₆
в) 461.25₁₀ = 111001101.01₂ = 715.2₈ = 1CD.4₁₆
г) 667.25₁₀ = 1010011011.01₂ = 1233.2₈ = 29B.4₁₆
д) 305.88₁₀ = 100110001.1110₂ = 461.7024₈ = 131.E147₁₆
--2--
а) 111001010₂ = 458₁₀
б) 1101110001₂ = 881₁₀
в) 1001010100.10001₂ = 596.53125₁₀
г) 111111110.11001₂ = 510.78125₁₀
д) 1634.35₈ = 924.453125₈
е) 6B.A₁₆ = 107.625₁₀
--3--
а) 101110001₂ + 101111001₂ = 1011101010₂
б) 1110001110₂ + 1100110111₂ = 11011000101₂
в) 10000011010.01₂ + 1010010110.01₂ = 11010110000.1₂
г) 1710.2₈ + 773.24₈ = 2703.44₈
д) 3E7.7₁₆ + 32.2₁₆ = 419.9₁₆
--4--
а) Прямой код: 0.1111000010₂ – 0.1110000011₂ = 0.0000111111₂
    Обратный: 0.0000111101₂ – 0.0001111100₂ = 000000000000000.0000111111₂
    Дополнительный: 0.0000111101₂ – 0.0001111100₂ = 000000000000000.0000111111₂

Const
n=10;m=8;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of integer;
i,j,min:integer;
  begin
      for i:=1 to n do
         begin
             writeln;
                  for j:=1 to m do
                      begin
                          a[i,j]:=random(100);
                          write(a[i,j]:4);
                      end;
           end;
writeln;
for j:=1 to m do
   begin
       min:=a[i,1];
           for i:=1 to n do
                    if a[i,j]<min then
                         min:=a[i,j];
          b[j]:=min;
     end;
for i:=1 to m do
   write(b[i]:4);
end.