Двумерный массив

[Gokus]

Есть код

program massiv;
uses crt;
const N=8;M=8;
var X:array [1..N, 1..M] of integer;
I,J:integer;
sum:integer;
begin
clrscr;
randomize;
for i:=1 to N do
    for j:=1 to M do
    x [I,J]:=random (100);
for i:=1 to N do
begin
     for j:=1 to M do
    write (' ',x[I,J]);
    writeln;
end;
readln
end.

как ни пытался,не получается написать вывод суммы элементов массива выше главной диагонали,помогите пожалуйста)

[doktor255]

for I := 1 to n do 
  for j := 1 to m do
    if i > j then // если i больше j, то элемент выше диагонали, если равны, то диагональ, если i < j то элемент ниже диагонали
      sum := sum + x[i, j]; // условие выполнено, плюсуем

[BDA]

Или

for i := 1 to n do 
  for j := i + 1 to m do
    sum := sum + x[i, j];

doktor255, если i - номер строки, а j - номер столбца, то:
i > j - ниже главной диагонали
i = j - диагональ
i < j - выше главной диагонали

[doktor255]

Да так даже лучше. Быстрее выполнится.

[doktor255]

Хотя нет. Рано похвалил. BDA, ты по моему ниже диагонали посчитал

если i - номер строки, а j - номер столбца, то:

Я себе это наоборот представляю. Сначала столбцы, потом строки. По принципу координат X, Y.

[Gokus]

Спасибо за помощь)

[BDA]

http://ideone.com/kXTZJK

var
  a: array[1..5, 1..5] of integer;
  i, j: integer;
begin
  for i := 1 to 5 do
    for j := i + 1 to 5 do
      a[i, j] := 1;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(a[i,j]:2);
    writeln;
  end;
end.

0 1 1 1 1
0 0 1 1 1
0 0 0 1 1
0 0 0 0 1
0 0 0 0 0

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

Я себе это наоборот представляю. Сначала столбцы, потом строки. По принципу координат X, Y.

Тогда понятно. Просто я и тс наоборот Y, X.