Цель работы: Изучение правил описания и вызова подпрограмм: процедур и функций. Получение навыков и овладение приемами работы над подпрограммами.
Задание№ 17. Посчитать сумму элементов лежащих выше главной диагонали матрицы для матрицы Z=X2+Y2.

Программа на Turbo Pascal
{Программа: Kyrsaсh

}
{Цель: Найти сумму элементов выше главной диагонали }
{Переменные:

}
{ X,Y - вводимые массивы

}
{ N, M, A,B, Z - промежуточные массивы
}
{ t - Размер массива

}
{ i, j - переменные цикла

}
{Программист: Позднышев А.А. группа 316 }
{Проверил: Новичков В.С.

}
Program Lab_12; uses crt;
Const
Nmax=10; {Максимальный размер массива}
Type
Matrics=array[1..Nmax,1..Nmax] of integer;
Masiv=array[1..Nmax] of integer;
Var
X,Y,Z,A,B:matrics;
M,N:masiv; i,j,t:integer;
{Процедура ввода элементов массива}
{Параметры: t - размер массива, X - массив}
Procedure Vvod (t:integer; Var X:matrics);

Var i,j:integer;
Begin{Vvod}

For i:=1 to t do

For j:=1 to t do

Begin {Ввод элементов}

Write ('[',i,',',j,']=');

Read (X[i,j]);

End; {Ввод элементов}

For i:=1 to t do

Begin {Вывод элементов}

For j:=1 to t do

Write (X[i,j]:5);

Writeln

End {Вывод элементов}
End;{Vvod}
{Процедура вывода элеменов матриц}
{Параметры: X,Y - матрицы, t - размер}
Procedure Echo (t:integer; X:matrics); var i,j:byte; begin {Echo}

For i:=1 to t do

Begin

For j:=1 to t do

Write (X[i,j]:5);