Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вычислить суммы элементов главной диагонали квадратной матрицы

Ответ оставил Гость

program sum_dia;
const r=10;
var a:array[1..r, 1..r] of shortint;
n,i,j:byte;
s:shortint;
begin
randomize;
n:= random(8) + 3;
writeln(Заданная матрица, порядкa ,n,:);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[ i, j ]:=random(21)-10;
write(a[ i, j ]:4);
end;
writeln
end;
s := 0;
for i:= 1 to n do
s:=s + a[ i, i ];
writeln(Сумма элементов главной диагонали: ,s);
end.