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

                                                      Блок-схема

Школьный АЯ
алг Суммы столбцов (арг цел N, M, арг вещ таб
A[1:N, 1:M],
                     рез вещ таб S[1:M])
  дано | N>0, M>0
нач цел i, j
  нц для j от 1 до M | цикл по столбцам
    S[j]:=0
     нц для i от 1 до N | цикл по элементам
       S[j]:=S[j] + A[i, j] |текущего столбца
     кц
  кц
кон
Исполнение алгоритма

 j    i     S[i]
          S1=0
 1    1   S1=0+2=2
      2   S1=2+4=6
          S2=0
 2    1   S2=0+1=1
      2   S2=1+3=4




Turbo Pascal
Program SumColumn;
  Uses Crt;
  Var A             : Array [1..10, 1..10] of Real;
       N, M, i, j : Integer;
       S            : Array [1..10] of Real;
  {--------------------------------------------}
  Procedure InputOutput;
     Begin {описание процедуры ввода-вывода исходных данных}
       ClrScr;
       Write('Количество строк - '); ReadLn(N);
       Write('Количество столбцов - '); ReadLn(M);
       For i := 1 to N do {Ввод элементов матрицы}
          For j := 1 to M do
             begin Write('A[' , i , ', ' , j , ']= ? '); {вывод
запроса}
                   ReadLn(A[i, j]) {ввод значения}
             end; WriteLn;
       ClrScr;
       WriteLn(' Матрица А');
       For i := 1 to N do {Вывод матрицы по строкам}