Определить процедуру

[Прокурор]

Определить процедуру, вычисляющую в массиве x(n) сумму элементов от X1 до Xk. С ее помощью для данного массива a(10) вычислить сумму от 1-го до 6-го элемента.

[Mad_Cat]

const Nmax=100;
type TArray :Array[1..Nmax] of real;
{.....}
procedure SumElement(A:Tarray;k:integer;var sum:real);
var i:integer;
begin
sum:=0;
for i:=1 to k do
sum:=sum+a[i];
end;