Подпрограмма. Сумма элементов главной диагонали матрицы - Pascal
Формулировка задачи:
У меня есть квадратная матрица и нужно разработать подпрограмму и вызвать ее из основной программы.
Программу для задания я написал,а как сделать под программу хз.
Есть тут темы где такое описывают,буду благодарен?
Решение задачи: «Подпрограмма. Сумма элементов главной диагонали матрицы»
textual
Листинг программы
{$APPTYPE CONSOLE} type matr = array[1..15, 1..15] of integer; function Sum(a: matr; n: integer): integer; var i, s: integer; begin s := 0; for i := 1 to n do s := s + a[i, i]; Sum := s; end; var a: matr; n, i, j: integer; begin randomize; repeat write('Write the size of the matrix n (n <= 15): '); readln(n); until n in [1..15]; writeln('matrix:'); s := 0; for i := 1 to n do for j := 1 to n do begin write('a[', i, ',', j, ']='); readln(a[i, j]); end; writeln('matrix:'); for i := 1 to n do begin for j := 1 to n do write(a[i, j]:4); writeln; end; writeln('summ = ', Sum(a, n)); readln; end.