1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
uses
 crt;type
 vector=array [1..100] of integer;
var
 arreglo1:vector;
 arreglo2:vector; long1,long2,cont,suma:integer;
begin
 ClrScr;
 Write('Vector 1 (longitud): ');Readln(long1);
 write('Vector 2 (longitud): ');Readln(long2); writeln;
 
 suma:=0;
 writeln('Vector 1');
 for cont:=1 to long1 do  begin
   write('Valor ',cont,': ');Readln(arreglo1[cont]);
   suma:=arreglo1[cont]+suma;
  end;
  writeln;
 writeln('Vector 2');
 for cont:=1 to long2 do
  begin
   write('Valor ',cont,': ');Readln(arreglo2[cont]);   suma:=arreglo2[cont]+suma
   ;
  end;
 
 writeln; write('Suma ambos vectores: ',suma);
 ReadKey;
end.