Дан двумерный массив размера n×n. требуется посчитать и вывести сумму элементов главной диагонали квадратного массива. формат входных данных с клавиатуры вводится натуральное число n (n≤500). следующие n строк содержат по n целых чисел, разделенных пробелом — элементы массива. все числа не превосходят 1000 по модулю. формат выходных данных требуется вывести одно число — сумму элементов главной диагонали массива. примеры входные данные: 3 1 2 3 4 5 6 7 8 9 выходные данные: 15 напишите на pascal .
program Main;
var
n, i, j, sum: integer;
arr: array[1..500, 1..500] of integer;
begin
// Чтение размера массива
readln(n);
// Чтение элементов массива
for i := 1 to n do
begin
for j := 1 to n do
begin
read(arr[i, j]);
end;
readln();
end;
// Инициализация суммы
sum := 0;
// Подсчет суммы элементов главной диагонали
for i := 1 to n do
begin
sum := sum + arr[i, i];
end;
// Вывод суммы
writeln(sum);
end.