одномерный массив Опции

[Yara24]

Помогите пожалуйста решить задачу на одномерный массив.....

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.
написать процедуру для ввода массива.

Спасибо.

[ATAMAH]

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;
 

Сообщение отредактировано: ATAMAH - 26.10.2010 20:20

[Yara24]

Спасибо...