Написание процедуры, сложения векторов Опции

[Jaxx]

Данные:

Код

Const n=100;
Type
   vector=array[1..n] of real;
Var
   a,b,c,d:vector;

Задача:
Опишите процедуру sum(x,y,z), которая присваивает вектору z сумму векторов x и y, и используйте ее для вычисления d=a+b+c.
Что-то я не слишком понимаю задание. В процедуре надобно писать так (на мой взгляд):

Код

z[1]:=x[1]+y[1];
z[2]:=x[2]+y[2];
......
z[n]:=x[n]+y[n];

Ну присвоили вектору сумму, а при чем тут вычисление с его помощью d=a+b+c?

[volvo]

Ну, наверное вот так хотят:

procedure sum(x, y: vector; var z: vector);
var i: integer;
begin
  for i := 1 to n do z[i] := x[i] + y[i];
end;

var a, b, c, d: vector;
begin
  sum(a, b, d); { с помощью sum ... }
  sum(d, c, d);
end.