a seguir, um vetor M que seja a diferenca entre K e N (M = K - N) e escreva o vetor M. program ex56;uses crt;vark, n, m: array[1..10] of integer;i: integer;beginclrscr;for i:= 1 to 10 do begin writeln('Informe o ', i ,' valor do vetor N: '); readln(n[i]); end;for i:= 1 to 10 do begin writeln('Informe o ', i ,' valor do vetor K: '); readln(k[i]); end;for i:= 1 to 10 do begin m[i]:=k[i]-n[i]; end;writeln('Vetor N: ');for i:= 1 to 10 do begin write(n[i]:5); end;writeln;writeln('Vetor K: ');for i:= 1 to 10 do begin write(k[i]:5); end;writeln;writeln('Vetor M: ');for i:= 1 to 10 do begin write(m[i]:5); end;readkey;end. 57. Escrever um algoritmo/programa em Pascal que le um vetor G[13] que e o Gabarito de um teste da loteria esportiva, contendo os valores 1 (coluna 1), 2(coluna 2), e 3 (coluna do meio). Ler, a seguir, para cada apostador, o no de seu cartao e um vetor Resposta R[13]. Verificar para cada apostador o no de acertos e escrever o no do apostador e seu numero de acertos. Se tiver 13 acertos, acrescentar a mensagem: "ganhador, parabens!". program ex57;uses crt;varg, r:array[1..13] of integer;numcart, acertos, i: integer; beginclrscr;writeln('Informe o Resultado da Loteria (Gabarito): ');for i:= 1 to 13 do begin write('Jogo ',i,': '); readln(g[i]); end;repeatclrscr;writeln('Informe o Numero do Cartao (0 para sair): ');readln(numcart);if numcart>0 then begin writeln('Informe as respostas do cartao ',numcart); for i:= 1 to 13 do begin write('Jogo ',i,': '); readln(r[i]); end; acertos:=0; for i:= 1 to 13 do begin if r[i]=g[i] then begin acertos:=acertos+1; end; end; writeln('O cartao ', numcart, ' obteve ', acertos,' acertos!'); if acertos=13 then begin writeln('Ganhador, Parabens!') end; readkey; end;until numcart=0;end. 58. Escrever um algoritmo/programa em Pascal que le, um vetor V[20] e o escreve. Compacte, a seguir, o vetor Y, retirando dele todos os valores nulos ou negativos e escreva o vetor compactado. program ex58;uses crt;varv, y: array[1..20] of integer;cont, i: integer;beginclrscr;for i:= 1 to 20 do begin writeln('Informe o ',i, ' valor: '); readln(v[i]); end;cont:=0;for i:= 1 to 20 do begin if v[i]>0 then begin cont:=cont+1; y[cont]:=v[i]; end; end;clrscr;writeln('Vetor original:');for i:= 1 to 20 do begin write(v[i]:5); end;writeln;writeln('Vetor compactado: ');for i:= 1 to cont do begin write(y[i]:5); end;readkey;end. 59. Escrever um algoritmo/programa em Pascal que le um vetor V(20) e o escreve. Retire, a seguir, os elementos em duplicata, compactando o vetor Y, e escrevendo o vetor compactado. program ex59;uses crt;varv, y: array[1..20] of integer;contpos,cont, i, j: integer;beginclrscr;for i:= 1 to 20 do begin writeln('Informe o ',i, ' valor: '); readln(v[i]); end;contpos:=0;for i:= 1 to 20 do begin cont:=0; for j:=1 to contpos do begin if y[j]=v[i] then begin cont:=cont+1; end; end; if cont=0 then begin contpos:=contpos+1; y[contpos]:=v[i]; end; end;clrscr;writeln('Vetor original:');for i:= 1 to 20 do begin write(v[i]:5); end;writeln;writeln('Vetor compactado: ');for i:= 1 to contpos do begin write(y[i]:5); end;readkey;end. 61. Escrever um algoritmo/programa em Pascal que le o 1o termo e a razao de uma progressao aritmetica e gera os vinte termos seguintes desta progressao, armazenando-os em 2 vetores de 10 elementos cada, no 1o os termos de ordem impar de geracao e no 2o os de