Question

1. Faça um programa que: a) preencha dois vetores a e b de cinco posições, com números inteiros; b) atribua a um vetor res à soma do vetor a com b (a primeira posição de a será somada à primeira posição de b e o resultado será atribuído à primeira posição do vetor res); c) mostre os valores do vetor res.

Answer 1

Program Questao1 ;

var

a: array[1..5] of integer ;

b: array[1..5] of integer ;

res: array[1..5] of integer ;

i:integer;

Begin

{A) R}  

 for i := 1 to 5 do

 begin

   a[i]:=random(5);

   b[i]:=random(5);

 end;

{B) R}  

 for i := 1 to 5 do

 begin

   if (a[i]) = (b[i]) then begin

     res[i]:=a[i] + b[i];

   end;

 end;

{C) R}  

 for i := 1 to 5 do

 begin

   writeln('Valor :',res[i]);

 end;

 

End.