Дана вещественная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных на главной диагонали.
Дана вещественная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных на главной диагонали.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы