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

[Евгений]

С заданием в принципе справился, но терзают меня смутные сомненья, что ее можно сделать и покороче заменив два цикла подсчета сумм паралельнных Главной(Побочной), на один , например через 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

[volvo]

CRT усложняет жизнь пользователю. Видеть не могу, когда начинающие программисты
1) раскрашивают свои программы, как елки, всеми цветами радуги
2) убирают с экрана то, что было на нем ДО запуска их супер-пупер-нужной (как им кажется) программы. МНЕ, пользователю, решать, какая программа нужная, а какая - нет. Та, которая считает себя важнее других (и убирает с экрана то, что было до ее запуска) сразу летит в мусорку. Умные дяденьки написали достаточно модулей, чтобы при старте программы сохранить содержимое экрана, а при финише - восстановить его, если уж на то пошло. А еще лучше - не трогать чужое. Вывел свои результаты и угомонись. Не надо убирать ЧУЖИЕ.