Матрица. Суммы диоганалей паралельных главной и побочной, Как сократить программу? Опции

[Евгений]

С заданием в принципе справился, но терзают меня смутные сомненья, что ее можно сделать и покороче заменив два цикла подсчета сумм паралельнных Главной(Побочной), на один , например через 2*М-1, но не как не могу справиться с агоритмом изменения индексов матрицы. Может есть у кого какие мысли на этот счет?

Program Massiv;
uses crt;
const M=3;
var
a: Array [1..M,1..M] of Integer;
sum: Integer;
j,I: Byte;
begin
 textbackground(white);
 clrscr;
 textcolor(black);
  Writeln('Введите ');
   For I := 1 to M do
     For j := 1 to M do
      begin
       Write(i,'-',j,' ');
       Readln(a[i,j]);
      end;
     for i:= 1 to M do
      begin
       sum:=0;
        for j:= 1 to i do
         sum:= sum + a[j,M-i+j];
         writeln(sum);
      end;
     for i:= 1 to M-1 do
      begin
       sum:=0;
        for j:= 1 to M-i do
         sum:= sum + a[i+j,j];
         writeln(sum);
      end;
     for i:= 1 to M do
      begin
       sum:=0;
        for j:= 1 to i do
         sum:= sum + a[I+1-j,j];
         writeln(sum);
      end;
      for i:= 1 to M-1 do
      begin
       sum:=0;
        for j:= 1 to M-i do
         sum:= sum + a[j+i,M+1-j];
         writeln(sum);
      end;
 readln;
end.

Сообщение отредактировано: Lapp - 4.12.2010 10:08

[Евгений]

Спасибо за помощь! Не все мне в этой программе понятно, но постараюсь разобраться, если что не пойму, надеюсь разъясните)).
Прошу строго меня не судить, если вопросы в вашем понимании покажутся глупыми. От получения задания до сессии, мне отведен месяц с небольшим и в голове каша из дискретной математики, алгебры логики, программирования и т.д., если что то не получается откладываю, занимаюсь другим, затем возращаюсь.
По поводу CRT , в задание есть условие об использовании очистки экрана и т.д., просто в каком виде ее написал в том и выложил, но на будующее учту.

Сообщение отредактировано: Евгений - 5.12.2010 3:21