Помогите пожалуйста решить задачу на одномерный массив.....
const n=10
type VECTOR=array [1..n] of real;
var a,b,c,d:bektor;
пусть процедура sum(x,y,z) присваивает вектору z сумму векторов x,y.Описать данную процедуру и использовать ее для вычисления d=a+b+c.
написать процедуру для ввода массива.
Спасибо.
const n=10;
type mas=array [1..n] of real;
//Ввод массива
procedure VvodMas( var T:mas);
var i:integer;
Begin
For i:=1 to n do
begin
writeln('Введите ',i,' элемент');
readln(T[i]);
end;
end;
//Сумма Векторов
procedure SumMas(x,y:Mas; var z:Mas);
var i:integer;
begin
for i:=1 to n do
z[i]:=x[i]+y[i];
end;
Спасибо...