Посчитать сумму элементов находящихся на главной диагонали. Паскаль
Посчитать сумму элементов находящихся на главной диагонали.
Паскаль
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
var a:=MatrixRandom(n,n,-50,50);
var s:=0;
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:4);
s+=a[i,i];
Writeln
end;
Writeln('S=',s)
end.
Тестовое решение:
n= 5
8 34 3 -6 22
46 1 3 -19 11
41 16 -41 -6 -30
46 37 30 -48 -6
33 14 8 42 13
S=-67
Не нашли ответ?
Похожие вопросы