Abs (trunc (-8.9) + round (-8.9)) div 4 mod 5

//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
    var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
    m.Println();
    
    {1}
    Writeln('количество элементов соответствующей строки');
    var number := ReadInteger('Введите число, для проверки =');
    var a := m.Rows.Select(r -> r.Count(x -> x > number));
    a.Println;
    
    {2}
    Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
    var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
    b.Println;
    Writeln(b.Any(x -> x > 0));
    
    {3}
    Writeln('Заполнить массив');
    var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
    m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
    m.Println();
end.

Const n=3; m=4;
var a:array[1..n,1..m] of real;
i,j:integer; min:real;
begin
Randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  a[i,j]:=10*random-5;
  write(a[i,j]:6:2);
  end;
  writeln;
  end;
min:=abs(a[i,j]);
for i:=1 to n do
 for j:=1 to m do
  if abs(a[i,j])<min then min:=abs(a[i,j]);
for i:=1 to n do
 for j:=1 to m do a[i,j]:=a[i,j]/min;
writeln('min = ',min:6:2);
writeln('Измененная матрица:');
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:6:2);
 writeln;
end;
end.

Пример:
Исходная матрица:
 4.25 2.99 -2.67 -0.88
-0.80 3.69 -1.94 -1.18
-3.37 0.65 4.62 1.45
min = 0.65
Измененная матрица:
 6.53 4.61 -4.11 -1.36
-1.23 5.68 -2.99 -1.81
-5.19 1.00 7.10 2.23