Вычисление суммы элементов главных диагоналей матриц - Free Pascal
Формулировка задачи:
Написать программу вычисления суммы элементов главных диагоналей матриц А (10,10), В (15,15), С (20,10)
Решение задачи: «Вычисление суммы элементов главных диагоналей матриц»
textual
Листинг программы
uses crt; const max=20; type mtr=array[1..20,1..20] of integer; procedure matrix(var a:mtr;n:integer;c:char); var i,j:integer; begin writeln('Матрица ',c); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:3); end; writeln; end; end; function summa(a:mtr;n:integer):integer; var i,s:integer; begin s:=0; for i:=1 to n do s:=s+a[i,i]; summa:=s; end; var a,b,c:mtr; begin clrscr; randomize; matrix(a,10,'A'); writeln('Сумма элементов главной диагонали=',summa(a,10)); write('Нажмите Enter для продолжения'); readln; matrix(b,15,'B'); writeln('Сумма элементов главной диагонали=',summa(b,15)); write('Нажмите Enter для продолжения'); readln; matrix(c,20,'C'); writeln('Сумма элементов главной диагонали=',summa(c,20)); write('Нажмите Enter для выхода'); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д