Vetores em Pascal

Dúvida do Leitor Pedro:

"Crie 2 vetores do tipo real, com 15 posições cada. Após ler todos os valores dos 2
vetores, some os valores do mesmo índice e armazene em um terceiro vetor (no
respectivo índice). Depois que realizar todas as somas, mostre os valores
armazenados em todos os vetores."

Solução:

 Program Vetores;  
 Uses Crt;  
 var  
  i : Integer;  
  a,b,c : Array [1..15] of Integer;  
 begin  
  ClrScr;  
  WriteLn ('Somatorio de Vetores');  
  WriteLn;  
  { ENTRADA DOS DADOS}  
  WriteLn ('Entre com vetor A:');  
  for i := 1 to 15 do  
  begin  
   Write ('A[',i,']=');  
   ReadLn (a[i]);  
  end;  
  WriteLN ('Entre com vetor B:');  
  for i := 1 to 15 do  
  begin  
   Write ('B[',i,']=');  
   ReadLn (b[i]);  
  end;  
  { PROCESSAMENTO }  
  { Somatoria de A com B }  
  for i := 1 to 15 do  
   c[i] := a[i]+b[i];  
  { SAIDA DOS DADOS }  
  WriteLn ('Vetor A:');  
  for i := 1 to 15 do Write (a[i]:4);  
  WriteLn;  
  WriteLn ('Vetor B:');  
  for i := 1 to 15 do Write (b[i]:4);  
  WriteLn;  
  WriteLn ('Vetor C:');  
  for i := 1 to 15 do Write (c[i]:4);  
  WriteLn;  
  { PAUSA }  
  ReadLn;  
 end.  

Um comentário:

  1. Quando o Profº é ótimo, o aluno aprende rápido.
    valeu profº

    ResponderExcluir