Народ! помогите составить процедуру подсчета суммы значений элементов в одномерном массиве и
...с помощью этой процедуры сосчитать суммы элементов строк произвольно заданной матрицы А

все что получилось это посчтитать сумму в одномерном массиве, но как связать это с процедурой, я надеюсь узнать ...

const
  n = 7;
type
  arrType = array[1 .. n] of real;

Procedure Sum(arr: arrType; Var s: real);
begin
  s := 0;
  for i := 1 to n do
    s:=s+arr[i];
end;

const
  m = 4; { для примера }
type
  matrixType = array[1 .. m] of arrType;
var
  mx: matrixType;
  s: real;

begin
  { Тут - заполнение матрицы mx }
  for i := 1 to m do begin
    sum(mx[i], s);
    writeln('сумма строки №', i, ' = ', s);
  end;
end.

Хотя лучше было бы использовать не процедуру, а функцию... Она здесь больше подойдет... :yes:

Пожалуйста, напишите работающую программу а то я в паскале не очень понимаю

Я уже практически все написал - осталось добавить только заполнение матрицы нужными значениями.

Это делай самостоятельно, тем более что тема неоднократно обсуждалась на форуме...