5) Leia um vetor de 12 posições e em seguida ler também dois valores X e Y quaisquer correspondentes a duas posições no vetor. Ao final seu programa deverá escrever a soma dos valores encontrados nas respectivas posições X e Y.
Program exvetor5 ; type vetor=array[1..12] of integer; var A:vetor; soma,X,Y,I:integer; Begin gotoxy(5,4); writeln('Vetor'); for I:=1 to 12 do begin gotoxy(5,4+I); readln(A[I]); end; gotoxy(20,4); writeln('Posição X'); gotoxy(20,5); readln(X); gotoxy(20,7); writeln('Posição Y'); gotoxy(20,8); readln(Y); soma:=A[X]+A[Y]; gotoxy(5,20); writeln('A soma dos elementos das posições X e Y é: ',soma); readln; End.
pessoal to postando uma questão de vetor da nova lista de exercicio, postei aí a numero 5 pra vocês se divertirem aí.
ResponderExcluirUm abraço
Pessoal, aqui está o gabarito da questão:
ResponderExcluirProgram exvetor5 ;
type
vetor=array[1..12] of integer;
var
A:vetor;
soma,X,Y,I:integer;
Begin
gotoxy(5,4);
writeln('Vetor');
for I:=1 to 12 do
begin
gotoxy(5,4+I);
readln(A[I]);
end;
gotoxy(20,4);
writeln('Posição X');
gotoxy(20,5);
readln(X);
gotoxy(20,7);
writeln('Posição Y');
gotoxy(20,8);
readln(Y);
soma:=A[X]+A[Y];
gotoxy(5,20);
writeln('A soma dos elementos das posições X e Y é: ',soma);
readln;
End.