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.
Assinar:
Postar comentários (Atom)
program prova;
ResponderExcluiruses crt;
type
vetora=array[1..4] of integer;
vetorb=array[1..4] of integer;
var
numpessoas,acerto:integer;
gab:vetora;
resp:vetorb;
I,j:integer;
begin
clrscr;
acerto:=0;
writeln('Digite quantidade');
readln(numpessoas);
for I:= 1 to 4 do
begin
writeln('Digite o gabarito da questao ', i);
readln (gab[I]);
end;
for j:= 1 to numpessoas do
begin
for i:=1 to 4 do
begin
writeln ('Digite a resposta do aluno ', j , 'na questao ', i);
readln (resp[I]);
If resp[I]=gab[I] then
acerto:= acerto+1;
end;
writeln('O numero de acertos do candidato ',j,' e = ', acerto);
acerto:=0;
end;
readln;
end.
Postado por rafael.
ResponderExcluirNão sei se está certo, foi oq eu entendi do enunciado..
Program exe5;
uses crt;
type
vetor=array[1..12] of integer;
var
num:vetor;
soma,i:integer;
Begin
clrscr;
for i:=1 to 12 do
begin
writeln('Insira Numeraçao');
readln(num[i]);
end;
soma:=num[1]+num[8];
writeln(' ');
gotoxy(8,27);
writeln('A soma de valores nas posições 1 e 8 é: ',soma);
readln;
readln;
End.