Question

Сформировать двумерный массив а (7x7). Вывести его как таблицу и найти сумму элементов главной диагонали.

Answer 1

Var
  A     : array[1..7,1..7] of Integer;
  i,j,s : Integer;
Begin
  s:=0;
  For i:=1 to 7 do
  Begin
    For j:=1 to 7 do
    Begin
      A[i,j]:=Random(100);
      If i=j then s:=s+A[i,j];
      Write(A[i,j]:4);
    end;
    Writeln;
  end;
  Write('Сумма элементов главное диагонали: ',s);
end.