Дана произвольная квадратная матрица (вводится с клавиатуры), посчитать сумму элементов находящихся на главной диагонали. нужна программа написанная на паскале!
Дана произвольная квадратная матрица (вводится с клавиатуры), посчитать сумму элементов находящихся на главной диагонали.
нужна программа написанная на паскале!
Гость
Ответ(ы) на вопрос:
Гостьconst n=4;
var
a:array[1..n,1..n] of integer;
i,j,s:integer;
begin
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
s:=0;
for i:=1 to n do s:=s+a[i,i];
writeln('s = ',s);
end.
Пример:
5
4
9
8
7
6
3
2
5
1
7
8
9
6
2
7
5 4 9 8
7 6 3 2
5 1 7 8
9 6 2 7
s = 25
Гость// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var n:=ReadInteger('Число строк (столбцов) матрицы:');
Writeln('Введите элементы матрицы построчно');
var a:array[,] of integer;
SetLength(a,n,n);
for var i:=0 to n-1 do
for var j:=0 to n-1 do Read(a[i,j]);
var s:=0;
for var i:=0 to n-1 do s+=a[i,i];
Writeln('Сумма элементов главной диагонали равна ',s)
end.
Тестовое решение
Число строк (столбцов) матрицы: 3
Введите элементы матрицы построчно
1 6 3
8 4 9
0 1 7
Сумма элементов главной диагонали равна 12
Не нашли ответ?
Похожие вопросы