Решаем задачи Абрамян на Паскале. Matrix80

Matrix80. Дана квадратная матрица $A$ порядка $M$ . Найти сумму элементов ее главной диагонали, то есть диагонали, содержащей следующие элементы:
$A_{1,1}, A_{2,2}, A_{3,3}, …, A_{M,M}$ .

Решение:

program Matrix80;

type

matrix = array [1..10,1..10] of integer;

var

a:matrix;

Sum,M, i, j:Integer;

begin

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to M do

begin

Write(j,' : ');

Read(a[i,j]);

end;

Sum:=0;

for i:=1 to M do

Sum:=Sum+a[i,i];

Writeln(Sum);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix80

Комментарии:

Добавить комментарий Отменить ответ