Сложение векторов

var
 VectX,VectY,VectZ : array of integer;
 
...
 
SetLength(VectX,n);
SetLength(VectY,n);
SetLength(VectZ,n);
 
for i:= 1 to n do
  VectZ[i] := VectX[i] + VectY[i];

uses crt;
const nmax=100;
var a,b,c:array[1..nmax] of integer;
    n,i:byte;
begin
randomize;
repeat
write('Размер векторов от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Вектор А');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4)
 end;
writeln;
writeln('Вектор B');
for i:=1 to n do
 begin
  b[i]:=random(20);
  write(b[i]:4)
 end;
writeln;
writeln('Вектор C=А+B');
for i:=1 to n do
 begin
  c[i]:=a[i]+b[i];
  write(c[i]:4)
 end;
end.

uses crt;
const max=100;
var a,b,c:array[1..max] of integer;
n,i:byte;
begin
write('ââåäèòå ðàçìåð âåòîðîâ');
read(n);
for i:=1 to n do
begin
writeln('Ââåäèòå âåêòîð A');
read(a[i]);
end;
for i:=1 to n do
begin
writeln('Ââåäèòå âåêòîð B');
read(b[i]);
end;
for i:=1 to n do
begin
c[i]:=a[i]+b[i];
write(c[i]:4) ;
end;
end.

uses crt;
const nmax=100;
var a,b,c:array[1..nmax] of integer;
    n,i:byte;
begin
randomize;
repeat
write('Размер векторов от 1 до ',nmax,' n=');
read(n); //вводим число и нажимаем Enter
until n in [1..nmax];
writeln('Введите элементы вектора А');
for i:=1 to n do
read(a[i]);//вводим n чисел через пробел  и нажимаем Enter
writeln('Введите элементы вектора B');
for i:=1 to n do
read(b[i]); //вводим n чисел через пробел и нажимаем Enter
writeln('Вектор C=А+B');
for i:=1 to n do
 begin
  c[i]:=a[i]+b[i];
  write(c[i]:4)
 end;
end.

uses crt;
const max=100;
var a,b,c:array[1..max] of integer;
n,i:byte;
function f1(a,b:real):real;
begin
f1:=(a[i]+b[i]);
end;
begin
write('ââåäèòå ðàçìåð âåòîðîâ :');
read(n);
for i:=1 to n do
begin
write('Ââåäèòå âåêòîð A:');
read(a[i]);
end;
for i:=1 to n do
begin
writeln('Ââåäèòå âåêòîð B:');
read(b[i]);
end;
for i:=1 to n do
begin
c[i]:=a[i]+b[i];
write(c[i]:4) ;
end;
end.

uses crt;
const max=100;
var n:byte;
type mas=array[1..max] of integer;
procedure vvod(var a:mas;c:char);
var i:byte;
begin
writeln('Введите вектор ',c);
for i:=1 to n do
read(a[i]);
end;
procedure summa(a,b:mas; var c:mas);
var i:byte;
begin
writeln('Сумма векторов c=A+B');
for i:=1 to n do
 begin
  c[i]:=a[i]+b[i];
  write(c[i]:4) ;
 end;
end;
var a,b,c:mas;
begin
write('введите размер векторов :');
read(n);
vvod(a,'A');
vvod(b,'B');
summa(a,b,c)
end.

uses crt;
const max=100;
var n:byte;
type mas=array[1..max] of integer;
procedure vvod(var a:mas;c:char);
var i:byte;
begin
writeln('Введите вектор ',c);
for i:=1 to n do
read(a[i]);
end;
procedure summa(a,b:mas; var c:mas);
var i:byte;
begin
writeln('Сумма векторов c=A+B');
for i:=1 to n do
 begin
  c[i]:=a[i]+b[i];
  write(c[i]:4) ;
 end;
writeln
end;
procedure scal(a,b:mas;var r:integer);
var i:byte;
begin
r:=0;
for i:=1 to n do
r:=r+a[i]*b[i];
writeln('Скалярное произведение=',r)
end;
var a,b,c:mas;
    r:integer;
begin
write('введите размер векторов :');
read(n);
vvod(a,'A');
vvod(b,'B');
summa(a,b,c);
scal(a,b,r)
end.