Найти отношения суммы элементов главной диагонали и суммы элементов побочной диагонали квадратной матрицы

[Elmander]

Вся судьба зависит от информатики! Нужно составить программы для Delphi по следующим условиям: Найти отношения суммы элементов главной диагонали и суммы элементов побочной диагонали квадратной матрицы А размерностью NxN.
Если не сложно то и блок схемку приложите. Это для нас смертных - трудно, а вам ведь это раз плюнуть!

[Jeni]

Сообщение от Elmander

Вся судьба зависит от информатики!

Ну, раз судьба зависит...

procedure ComputeX;
const
  N = 10;
var
  I, J: Integer;
  M: array[1..N, 1..N] of Integer;
  Sum1, Sum2: Integer;
  X: Double;
begin
  // Заполнение массива случайными числами
  for I := 1 to N do
    for J := 1 to N do
      M[I, J] := Random(100);

  // Вычисление сумм диагоналей
  Sum1 := 0;
  Sum2 := 0;
  for I := 1 to N do
    begin
      Sum1 := Sum1 + M[I, I];
      Sum2 := Sum2 + M[I, N - I + 1];
    end;

  X := Sum1 / Sum2;
end;

[Elmander]

Огромное тебе спасибо!!!