// 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
1) статья из газеты2) из-за ошибки журналиста известного журналиста считают умершим3) например, "температура кипящей воды - 100С"4) соответственно, "кипящая вода очень горячая"5) "скорый поезд из Новосибирска прибыл на Курский вокзал в 02.35 20 февраля 2010 года"6) "поезд приехал в Москву 20 числа"7) учебник 7 класса по математике для семиклассника8) учебник 7 класса по математике для первоклассника9) текст на русском языке для русскоговорящего человека10) иноязычный сленг для человека, не говорящего на этом языке
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