em ordem crescente: ');for i:= 1 to 15 do begin write(a[i]:5); end;readkey;end. 52. Escrever um algoritmo/programa em Pascal que le um vetor N[20] e o escreve. Troque, a seguir, o 1o elemento com o ultimo, o 2o com o penultimo, etc., ate o 10o com o 11o e escreva o vetor N assim modificado. program ex52;uses crt;varn: array[1..20] of integer;aux, i: integer;beginclrscr;for i:= 1 to 20 do begin writeln('Informe o ', i ,' valor: '); readln(n[i]); end;writeln('Vetor original: ');for i:= 1 to 20 do begin write(n[i]:5); end;for i:= 1 to 10 do begin aux:=n[i]; n[i]:=n[21-i]; n[21-i]:=aux; end;writeln;writeln('Vetor alterado: ');for i:= 1 to 20 do begin write(n[i]:5); end;readkey;end. 53. Escrever um algoritmo/programa em Pascal que le um vetor K(20) e o escreve. Troque, a seguir, os elementos de ordem impar com os de ordem par imediatamente seguintes e escreva o vetor k modificado. program ex53;uses crt;vark: array[1..20] of integer;aux, i: integer;beginclrscr;for i:= 1 to 20 do begin writeln('Informe o ', i ,' valor: '); readln(k[i]); end;writeln('Vetor original: ');for i:= 1 to 20 do begin write(k[i]:5); end;for i:= 1 to 20 do begin if i mod 2<>0 then begin aux:=k[i]; k[i]:=k[i+1]; k[i+1]:=aux; end; end;writeln;writeln('Vetor alterado: ');for i:= 1 to 20 do begin write(k[i]:5); end;readkey;end. 54. Escrever um algoritmo/programa em Pascal que le um vetor N[20] e o escreve. Troque, a seguir, o 1o elemento com 11o, o 2o com o 12o, etc., ate o 10o com o 20o e escreva o vetor assim modificado. program ex54;uses crt;varn: array[1..20] of integer;aux, i: integer;beginclrscr;for i:= 1 to 20 do begin writeln('Informe o ', i ,' valor: '); readln(n[i]); end;writeln('Vetor original: ');for i:= 1 to 20 do begin write(n[i]:5); end;for i:= 1 to 10 do begin aux:=n[i]; n[i]:=n[10+i]; n[10+i]:=aux; end;writeln;writeln('Vetor alterado: ');for i:= 1 to 20 do begin write(n[i]:5); end;readkey;end. 55. Escrever um algoritmo/programa em Pascal que le um vetor G[20] (gabarito) e a seguir le um numero nao determinado de numeros de alunos e vetores R[20] (resposta), um numero e um vetor R de cada vez. O numero representa o numero de um aluno e o vetor R representa o conjunto de respostas daquele aluno. Para cada aluno calcular o no de acertos e ca1cular a nota. nota = numero de acertos * 0.5Escrever o no do aluno, sua nota e a mensagem "aprovado" se tiver nota maior ou igual a 5 ou "reprovado" se a nota for menor do que 5. program ex55;uses crt;varg, r:array[1..20] of integer;numal, acertos, i: integer;nota: real; beginclrscr;writeln('Informe o Gabarito: ');for i:= 1 to 20 do begin write('Resposta ',i,': '); readln(g[i]); end;repeatclrscr;writeln('Informe o Numero do Aluno (0 para sair): ');readln(numal);if numal>0 then begin writeln('Informe as respostas do aluno ',numal); for i:= 1 to 20 do begin write('Resposta ',i,': '); readln(r[i]); end; acertos:=0; for i:= 1 to 20 do begin if r[i]=g[i] then begin acertos:=acertos+1; end; end; nota:=acertos * 0.5; writeln('O aluno ', numal, ' obteve a nota ', nota:0:1); if nota>=5 then begin writeln('Esta aprovado!') end else begin writeln('Esta reprovado!'); end; readkey; end;until numal=0;end. 56. Escrever um algoritmo/programa em Pascal que le 2 vetores K[10] e N[10] e os escreve. Crie,