Определить к — количество особых элементов массива а - Pascal ABC

Формулировка задачи:

Вариант 5 1 Дана матрица A размером n*m. Определить к - количество особых элементов массива а, считая его элемент особым, если он больше суммы остальных элементов его столбца. 2. Пусть дана вещественная матрица размером n*m. Определите числа а1 ,а2 ... аn, равные соответственно суммам элементов строк 3 Пусть дона вещественная квадратная матрица порядко n .Получите целочисленную квадратную матрицу того же порядка, в которой элемент равен единице, если соответствующий ему элемент исходной матрицы больше элемента расположенного в его строке на главной диагонали, и равен нулю - в противном случае

Решение задачи: «Определить к — количество особых элементов массива а»

textual
                            Листинг программы 
                        

                            for i := 1 to m do
begin
  for j := 1 to n do
    s := s + a[j, i];
  for j := 1 to n do
    if (a[j, i] > s - a[j, i]) then
      inc(k);
end;
writeln(k);
                        