Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 29 стр.

          begin
            For j := 1 to M do Write(A[i, j] : 5 : 1); {вывод i-ой
строки}
          WriteLn {перенос курсора на начало следующей строки}
        end; WriteLn
    End; { of InputOutput }
  {--------------------------------------------}
  Procedure SumCol;
    Begin {описание процедуры вычисления сумм элементов
столбцов}
      For j := 1 to M do {цикл по столбцам матрицы}
        begin
          S[j] := 0; {обнуление суммы элементов j-го столбца}
          For i := 1 to n do S[j] := S[j] + A[i, j] {накопление
суммы}
        end;
    End; { of SumCol }
  {--------------------------------------------}
  Procedure OutResult; {описание процедуры вывода результатов}
    Begin
      Write( 'О т в е т : Суммы элементов столбцов равны ');
      For j := 1 to M do Write(S[j] : 5 : 1); WriteLn; ReadLn
    End; { of OutResult }
  {--------------------------------------------}
BEGIN
  InputOutput; {вызов процедуры ввода-вывода исходных данных }
  SumCol; {вызов процедуры вычисления сумм }
  OutResult; {вызов процедуры вывода результатов}
END.


   Пример 3.2. Подсчитать, сколько раз встречается в заданной целочисленной
                матрице A(N, M) максимальное по величине число.

                                       Тест

                              Данные          Результат
                        N=2
                                                K=3
                        M=3     A=

Школьный АЯ
алг Количество максимумов(арг цел N,M, арг цел таб А[1:N,1:M],
рез цел K)
нач цел i, j, Amax
  Amax := A[1, 1] | Поиск максимального элемента матрицы
  нц для i от 1 до N
     нц для j от 1 до M
        если A[i, j] > Amax
          то Amax := A[i, j]
        все
     кц
  кц