Водномерном массиве посчитать разность положительных элементов.как то связано с темой сортировка

  c1 +ca   18b₁₆ = 1 1000 1011₂ = 110 001 011₂ = 613₈ как все это получается? сначала складываем в столбик шестнадцатиричные числа. для этого нужно помнить, что а₁₆=10, b₁₆=11, c₁₆=12, d₁₆=13, e₁₆=14, f₁₆=15. a₁₆+1 = b₁₆. тут все понятно, после а₁₆ идет в₁₆. с₁₆+с₁₆ = 12₁₀+12₁₀=24₁₀ и теперь надо снова вернуться к шестнадцатиричному числу. 24 - это 16+8, 16₁₀=10₁₆, поэтому 24₁₀=10₁₆+8₁₆ = 18₁₆. получаем ответ 18b₁₆ теперь переводим его в двоичную систему, для чего каждую цифру заменяем четырьмя двоичными (16=2⁴). а 8=2³, поэтому теперь справа налево разбиваем число на группы по 3 двоичных разряда и заменяем каждую группу восьмеричной цифрой.

Const n=10; var  a: array[1..n,1..n] of integer; i,j: integer; p1,p2: real; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin   a[i,j]: =random(20);   write(a[i,j]: 4);   end;   writeln;   end; p1: =1; p2: =1; for i: =1 to n do   begin   p1: =p1*a[i,i];   p2: =p2*a[i,n-i+1]   end; writeln('p1 = ',p1,' p2 = ',p2); end. пример (для n=5): исходный массив:     1   10   14   0   5   12   13   13   5   0     7   7   8   7   14     5   11   3   17   14   12   1   19   17   10 p1 = 17680 p2 = 26400