Exercicio 3 de Unidimensional

Program Pzim ;
{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.}

{as variaveis criadas são :
a, que é vetor
b, que é vetor
c, que é vetor que recebe a soma dos vetores A e B
i, que é o contador }
var

a, b, c:array[1..5] of integer;
i:integer;
 Begin
      {inicio do programa}
     
      for i:=1 to 5 do
          begin
              writeln('Digite o ',i,' o. valor do 1o. vetor : ');
              readln(a[i]);   
          end;
    {o primeiro for, é feito a entrada dos valores do vetor A, nas posições[i], de 1 ate 5}
   
    clrscr;
     {clrscr tem a mesma função do comando limpatela no VISUALG, ele limpa toda a tela e posiciona o cursor na
    posição inicial, indicado para não ficar muita informação na tela}
    
    for i:=1 to 5 do
         begin
             writeln('Digite o ',i,' o. valor do 2o. vetor : ');
             readln(b[i]);
         end;
    {o segundo for, é feito a entrada dos valores do vetor B, nas posições[i], de 1 ate 5}        
   
    clrscr;
    {vide anterior}
   
     for i:=1 to 5 do
         begin
             c[i]:=a[i]+b[i];
         end;
    {o terceiro for, é feito a soma do vetores A e B, e atribuido ao vetor C, nas posições[i], de 1 ate 5}  
            
    
     for i:=1 to 5 do
         begin
             writeln('O ',i,'o. termo do vetor soma é: ',c[i]);
         end;
     {o quarto for, é feito a exibição dos valores do vetor C, nas posições [i], de 1 até 5 }
 End.