Суммы элементов в матрице Опции

[Fest]

Такая вот у меня проблема:
Надо написать прогу, которая считает в квадратной матрице(5х5) суммы элементов треугольников. Треугольниками здесь называется такая вот весчь:
Матрица -
1 2 3 4 5
2 2 3 4 5
3 2 3 4 5
4 2 3 4 5
5 2 3 4 5

Вотс, надо вычислить в подобной матрице суммы красных треугольничков и зеленых. Проблема в том, как это сделать... Я пробовал просто складывать нужные элементы(s1:=a[1.2]+a[1.3] и так далее), но это немного не то. Можно ли как-нибудь еще посчитать суммы этих треугольников?

Сообщение отредактировано: Fest - 23.12.2007 8:29

[klem4]

на самом деле решение этой задачи не однократно выкладывалось, но не в таком виде как я щас сделал (я по крайней мере такого решения не припомню), проверок получается больше, но зато всего в 2 цикла все уместилось

это конечно медленнее чем в несколько двойных циклов подсчитывать, но зато кода меньше, хоть это никаких плюсов и не дает ...

uses crt;

const
  n = 5;

type
  TMatrix = array [1..n, 1..n] of Integer;

procedure get_sum(const mx: TMatrix; var green, red: Integer);
var
  i, j: Integer;
begin
  green := 0;
    red := 0;

  for i := 1 to n do
   for j := 1 to n do
    if (i <> j) and (j <> n - i + 1) then begin
      if ((j > i) and (j < n - i + 1)) or ((j > n - i + 1) and (j < i))
        then red := red + mx[i, j]
      else
        green := green + mx[i, j];
    end;
end;


const
  mx: TMatrix = (
    (1, 2, 3, 4, 5),
    (2, 2, 3, 4, 5),
    (3, 2, 3, 4, 5),
    (4, 2, 3, 4, 5),
    (5, 2, 3, 4, 5)
  );

var
  red_sum, green_sum: Integer;

begin
  clrscr;
  get_sum(mx, green_sum, red_sum);
  writeln('red   = ', red_sum);
  writeln('green = ', green_sum);
  readln;
end.