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

Turbo Pascal
Program TwoSums;
  Uses Crt;
  Var A          : Array [1..10, 1..10] of Real;
       S1, S2 : Real; {S1, S2 - суммы элементов, расположенных
ниже
                             и выше главной диагонали,
соответственно}
       N, i, j : Integer;
{--------------------------------------------}
  Procedure InputOutput;{описание процедуры ввода-вывода
исходных данных}
     Begin ClrScr;
       Write('Количество строк и столбцов - '); ReadLn(N);
       For i := 1 to N do {Ввод матрицы}
          For j := 1 to N do
             begin Write('A[' , i , ', ' , j , '] = ? ');
                   ReadLn(A[i, j])
             end; WriteLn;
       ClrScr; WriteLn(' Матрица А');
       For i := 1 to N do {Вывод матрицы}
          begin
             For j := 1 to N do Write(A[i, j] : 5 : 1);
             WriteLn
          end; WriteLn
     End; { of InputOutput }
{--------------------------------------------}
  Procedure Under;
     Begin {описание процедуры суммирования элементов, }
       S1 := 0; {расположенных ниже главной диагонали }
       For i := 2 to N do
          For j := 1 to i-1 do
             S1 := S1 + A[i, j];
       WriteLn('О т в е т :');
       WriteLn('Сумма элементов, лежащих ниже главной диагонали
=', S1:5:1);
     End;
{--------------------------------------------}
  Procedure Over;
     Begin {описание процедуры суммирования элементов,}
       S2 := 0; {расположенных выше главной диагонали}
       For i := 1 to N-1 do
          For j := i+1 to N do
             S2 := S2 + A[i, j];
       WriteLn('Сумма элементов, лежащих выше главной диагонали
=', S2:5:1);
       ReadLn
     End;
{--------------------------------------------}
BEGIN
  InputOutput; {Вызов процедуры ввода-вывода матрицы }
  Under; {Вычисление суммы элементов, лежащих ниже главной
диагонали}