Число 54 300 записали в нормализованной форме. Определите мантиссу (m) и порядок (n) данного числа. а) m=5,43 n=4
б) m=0,543 n=5
в) m=5 n=0,543
г) m=0,543 n=-4

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var x:=ArrRandom(n,-5,25); x.Println;
  var y:=ArrRandom(n,-5,25); y.Println;
  var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println;
  var s:=z.Sum;
  var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный';
  Writeln('Сумма равна ',s,', знак суммы ',c)
end.

Пример
n= 13
2 -5 24 3 23 22 -3 6 -3 -2 9 25 8
17 9 11 8 0 -2 -2 2 25 19 16 21 -4
-15 -14 13 -5 23 24 -1 4 -28 -21 -7 4 12
Сумма равна -11, знак суммы отрицательный

Var
  M, tons, kilos, grams: integer;
begin
  write('Введите массу: ');
  read(M);
  // чтобы найти кол-во тонн, разделим нацело введенную массу
  // на 1000000
  tons := M div 1000000;  // div - деление нацело
  // чтобы найти кол-во килограмм, сначала возьмем остаток 
  // деления на 100000, затем полученное число разделим
  // нацело на 1000.
  kilos := (M mod 100000) div 1000;  // mod - остаток от деления
  // граммы - последние 3 цифры введенного числа
  grams := M mod 1000;
  writeln(tons, ' т. ', kilos, ' кг ', grams, ' г.');
end.