Дан массив из вводимых чисел с клавиатуры, массив 3х3 (двумерный). Найти сумму элементов главной диагонали.Исходный массив вывести на экран . Турбо Паскаль( подробно если можно) Снова(сори)

Предыдущий
вопрос Следующий
вопрос

Пример кода на Turbo Pascal:

program Main;
var
arr: array[1..3, 1..3] of Integer;
i, j, sum: Integer;
begin
// Ввод массива с клавиатуры
writeln('Введите элементы массива:');
for i := 1 to 3 do
for j := 1 to 3 do
readln(arr[i, j]);
// Вывод исходного массива на экран
writeln('Исходный массив:');
for i := 1 to 3 do
begin
for j := 1 to 3 do
write(arr[i, j], ' ');
writeln;
end;
// Нахождение суммы элементов главной диагонали
sum := 0;
for i := 1 to 3 do
sum := sum + arr[i, i];
// Вывод суммы на экран
writeln('Сумма элементов главной диагонали: ', sum);
end.

Этот код сначала запрашивает у пользователя ввод элементов массива, затем выводит исходный массив на экран, и находит сумму элементов главной диагонали.