Question

посчитать сумму элементов находящихся на главной диагонали.
Паскаль

Answer 1

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