Дана вещественная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных на главной диагонали.
Ответы
Ответ дал:
0
var a: array [1..100, 1..100] of real; sum: real; i, j, n: integer;
begin
read(n);
sum := 0;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i, j]);
if i = j then sum := sum + a[i, j];
end;
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j], ' ');
writeln;
end;
writeln(sum);
end.
begin
read(n);
sum := 0;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i, j]);
if i = j then sum := sum + a[i, j];
end;
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j], ' ');
writeln;
end;
writeln(sum);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад