Нужно вычислить сумму элементов матрицы

Для начала НУЖНО читать правила... DOC удален...

А так?

i:=0;
for p:= 1 to n do begin
 for o:= 1 to n do begin
  i:=i+arr[p,o];
 end;
end;
writeln(i);

n - количество элементов матрицы.

А что, ты ВИДЕЛ тот файл, который автор присоединил? Или посты накручиваем?

, во первых зачем 2 вложенных цикла ? А во вторых, ты телепат ? автор же не сказал значения _каких_ элементов матрицы надо суммировать, может всех, может тех которых стоят ниже главной диагонали, может еще какие, видимо это уточнение было в DOC файле.

опоздал мальца.