Дан двумерный массив размера n×n. требуется посчитать и вывести сумму элементов главной диагонали квадратного массива. формат входных данных с клавиатуры вводится натуральное число n (n≤500). следующие n строк содержат по n целых чисел, разделенных пробелом — элементы массива. все числа не превосходят 1000 по модулю. формат выходных данных требуется вывести одно число — сумму элементов главной диагонали массива. примеры входные данные: 3 1 2 3 4 5 6 7 8 9 выходные данные: 15 напишите на pascal .

Хорошо, вот решение на языке 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.