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.
