Оптимизировать алгоритм вычисления сумм элементов главной и побочной диагонали в матрице - Delphi

[r9m]

Задача:
Задана матрица A(N,N) где N <= 10 Вычислить суммы элементов главной и побочной диагоналей.

Решение:

uses crt;
type matrix = array [1..11,1..11] of integer;
var
   A:matrix;
   i,j,m,n,sum1,sum2:integer;
   
   begin
        clrscr;
        write ('Задача:',#10,#10, 'Задан двумерный массив (матрица) A(N,N), где',#10,
               'N <= 10. Вычислить суммы элементов главной и',#10,'побочной диагонали. Результат вывести на дисплей!',#10,#10);
        write ('Введите число строк: '); readln(m);
        write ('Введите число столбцов: '); readln(n);
        writeln;
        
        // Проверка на квадратичность матрицы.
        if m <> n then
        writeln('Ошибка! Матрица с заданными параметрами не является квадратной!')
        else
        
        // Заполняем матрицу
        begin
        for i:=1 to n do
            for j:=1 to m do begin
                write('A[',i,',',j,'] = ');
                readln (A[i,j]);
            end;
        clrscr;
        writeln ('Исходная матрица: ');

        // выводим массив
        for i:=1 to n do
            for j:=1 to n do begin
                writeln ('A[',i,',',j,'] = ',A[i,j]);
            end;

       // вычисляем главную диагональ
       // n - колличество столбцов
       
        for i:=1 to n do
                 sum1:=sum1+A[i,i];

       // вычисляем побочную диагональ
       j:=n;
       for i:=1 to n do begin
                sum2:=sum2+A[i,j];
                dec (j);
       end;

       // Вывод результата
       writeln ('Сумма элементов главной диагонали: ',sum1);
       writeln ('Сумма элементов побочной диагонали: ',sum2);
       
end;end.

Вопрос:
Посмотрите пожалуйста свежим взглядом. Можно ли ещё больше оптимизировать и/или сократить код приложения? Спасибо!

[RealSHELS]

uses crt;
type matrix = array [1..10,1..10] of integer;
var
   A:matrix;
   i,j,n,sum1,sum2:integer;

   begin
        clrscr;
        write ('Задача:',#10,#10, 'Задан двумерный массив (матрица) A(N,N), где',#10,
               'N <= 10. Вычислить суммы элементов главной и',#10,'побочной диагонали. Результат вывести на дисплей!',#10,#10);
        write ('Введите число столбцов и строк: '); readln(n);
        writeln;
        randomize;
        for i:=1 to n do
            for j:=1 to n do
              a[i,j]:=random(10);
        clrscr;
        writeln ('Исходная матрица: ');

        {// выводим массив }
        for i:=1 to n do
            for j:=1 to n do
                if j<>n then write(a[i,j],' ') else writeln(a[i,j]);

       {// вычисляем главную диагональ
       // n - колличество столбцов    }

        for i:=1 to n do
                 sum1:=sum1+A[i,i];

       {// вычисляем побочную диагональ    }
       j:=n;
       for i:=1 to n do begin
                sum2:=sum2+A[i,j];
                dec (j);
       end;

       {// Вывод результата}
       writeln ('Сумма элементов главной диагонали: ',sum1);
       writeln ('Сумма элементов побочной диагонали: ',sum2);

end.

[r9m]

Супер. Спасибо... Тока полюбому нужно с клавы вводить значения... Пожалуй синтезирую оба варианта...

Но может быть ещё кто нибудь чего подскажет?

[Plague]

вычесляем обе суммы в одном цикле:

  for i:=1 to n do begin
    s1:=s1+a[i,i];
    s2:=s2+a[n-i+1,i];
  end;

[r9m]

Вот оно! Точно, мне тот кусок сразу не нравился... Спасибо ) Свежий взгляд на казалось бы избитые вещи действительно творит чудеса ))

[Stilet]

Вот мой вариант оптимизации:

  var a:array[1..10,1..10] of integer;
  i,j,s1,s2:integer;
begin
 for i:=1 to 10 do begin
  for j:=1 to 10 do begin
   a[i,j]:=random(20);
   write(a[i,j]:5);
   if i=j then begin s1:=s1+a[i,j];   end;
   if (11-i)=j then begin    s2:=s2+a[i,j];   end;
  end;
  writeln;
  end;
  writeln;
   writeln(s1,' ',s2);
   readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.