Exercício 06 Vetor - Pascal

6) Elabore um algoritmo que, dados dois vetores inteiros de 10 posições, leia os dois vetores, some os
valores da mesma posição e armazene em um terceiro vetor inteiro de 10 posições. No final imprima
este terceiro vetor.

Program Vet06 ;
 var
 a,b,c:array[1..10] of integer;
 i:integer;
 Begin
  for i:= 1 to 10 do
   Begin
    Write('Informe ',i,' Vetor_01: ');
    readln(b[i]);
    Write('Informe ',i,' Vetor_02: ');
    readln(a[i]);
   End;
   
   for i:= 1 to 10 do
    Begin
     c[i]:= a[i]+b[i];
    end; 
    for i:= 1 to 10 do
     Begin
      Writeln(c[i]);
     End;
 Writeln('            by Marcus Vinicius');    
 End.

Categories: Pascal , Programação