Soma de vetores em Pascal

[Yure 0]

Eii pessoal..alguém sabe como somar vetores em pascal ???

 

Program exercicio06 ;
var veta:array[1..10] of integer;
    vetb:array[1..11] of integer;
    vetc:array[1..20] of integer;
    va,vb:integer;
    
procedure vetora (var va:integer);
 	Begin
          for va:=1 to 10 do
		read(veta[va]);
		
	end;

procedure vetorb (var vb:integer);
	Begin
		for vb:=1 to 10 do
		read(vetb[vb]);
		
	end;
????

Preciso somar o vetora, com o vetorb, sendo assim, criar um vetorc com 20 posições.

[Marcelo de Andrade 2]

um exemplo simples :

program soma_vetor;

var
tab1, tab2		: array[1..5] of integer;
i, j			: integer;

begin

	for i:= 1 to 5 do
	begin
		writeln('Entre com o valor da primeira tabela:');
		readln( tab1[i] );
	end;
	
	writeln('--------------------');
	
	for i:= 1 to 5 do
	begin
		writeln('Entre com o valor da segunda tabela:');
		readln( tab2[i] );
	end;

	writeln('--------------------');	

	for i:= 1 to 5 do
		writeln( tab1[i] + tab2[i] );	
	
	readln;
	
end.

[MarioPoli 0]

Eii pessoal..alguém sabe como somar vetores em pascal ???

 

Program exercicio06 ;
var veta:array[1..10] of integer;
    vetb:array[1..11] of integer;
    vetc:array[1..20] of integer;
    va,vb:integer;
    
procedure vetora (var va:integer);
 	Begin
          for va:=1 to 10 do
		read(veta[va]);
		
	end;

procedure vetorb (var vb:integer);
	Begin
		for vb:=1 to 10 do
		read(vetb[vb]);
		
	end;
????

Preciso somar o vetora, com o vetorb, sendo assim, criar um vetorc com 20 posições.

 

so uma duvida;

 

Tu quer unir os 2 vetores? ou Somar?

 

pq unir, ai sim teria 20 lugares o vetor uniao.

 

o vetor soma tera 10 lugares.