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

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

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

Answer 8

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

Answer 9

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

Answer 10

ясно

Answer 11

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