Подпрограмма. Сумма элементов главной диагонали матрицы - 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.

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы