Question

Дана произвольная квадратная матрица (вводится с клавиатуры), посчитать сумму элементов находящихся на главной диагонали. нужна программа написанная на паскале!

Answer 1

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

Answer 2

// 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

Answer 3

Для решения данной задачи нахождения суммы элементов на главной диагонали произвольной квадратной матрицы в Pascal, можно использовать следующий код:

program Main;

const
  N = 3; // размерность матрицы

var
  matrix: array[1..N, 1..N] of Integer;
  i, j, sum: Integer;

begin
  // Ввод элементов матрицы с клавиатуры
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      Write('Введите элемент [', i, ',', j, ']: ');
      ReadLn(matrix[i, j]);
    end;
  end;

// Вычисление суммы элементов на главной диагонали
  sum := 0;
  for i := 1 to N do
  begin
    sum := sum + matrix[i, i];
  end;

// Вывод результата
  WriteLn('Сумма элементов на главной диагонали: ', sum);

ReadLn;
end.

В этом коде мы сначала объявляем константу `N`, которая определяет размерность квадратной матрицы. Затем объявляем переменные `matrix` для хранения элементов матрицы, `i` и `j` для итерации по строкам и столбцам матрицы соответственно, и `sum` для хранения суммы элементов на главной диагонали.

Затем мы используем вложенные циклы `for` для ввода элементов матрицы с клавиатуры и их сохранения в массив `matrix`.

После этого мы снова используем цикл `for` для вычисления суммы элементов на главной диагонали. Мы просто прибавляем к переменной `sum` элементы, находящиеся на позициях `(i, i)`.

Наконец, мы выводим результат суммы элементов на главной диагонали на экран.

Примечание: В приведенном коде предполагается, что размерность матрицы равна 3. Вы можете изменить значение константы `N` в соответствии с вашими потребностями.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.