ДВУМЕРНЫЕ МАССИВЫ

[QEEN]

помогите решить задачку,пожалуйста! найти сумму модулей элементов расположенных выше главной диагонали матрицы размером 10х10.

[Stilet]

var a:array[1..10,1..10]...
if (x>5) then summ:=summ+a[x,y]

так понятно?

[alex_fcsm]

for i:=1 to n do
 for j:=1 to n do
  if i>j then begin
                 sum:=sum+a[i,j];
                end;

[Zaher]

Попробуй так:
var
array a[0..9,0..9] of integer;
i,j,s: integer;
begin
s:=0;
i:=0;
J:=0;
for i:=0 to 8 do
for j:=i+1 to 9 do
s:=fabs(a[i][j])+s; // Не помню как в Pascale модуль поэтому написал как в C++
end.