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

нужна программа написанная на паскале!

зачем 3 раза цикл гонять?

Предпочитаю разделять ввод-обработку-вывод.

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

Другой вопрос, что давая учащимся решения, мы тем самым навязываем им наши подходы и образ мышления. Но это обычно нивелируется тем, что подавляющее их большинство просто списывает это решение. И, сдав задание, все благополучно забывает.

Т.е. если бы мы передавали массив в иную программную единицу, то такой вызов был бы оправдан, потому что тогда, наоборот, глупо тащить еще параметр n.

Но, конечно, это моя личная точка зрения. Никому её не навязываю, просто объясняю.

как по мне то наоборот мы уберегаем решение от лишних ошибок при изменениях

ясно

Затрудняюсь придумать пример изменения в этой программе, где бы не сработало n-1

const n=4;var a:array[1..n,1..n] of integer; i,j,s:integer;beginfor 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.Пример:5498763251789627 5 4 9 8 7 6 3 2 5 1 7 8 9 6 2 7 s = 25

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  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 38 4 90 1 7Сумма элементов главной диагонали равна 12