6 - Escreva um algoritimo que leia um vetor inteiro de 30 posicoes e crie um segundo vetor, substituindo os valores nulos por 1. mostre os 2 vetores.ProgramPzim ; varnum,nulos: array[1..5]ofinteger;cont:integer;Begin for cont:= 1 to 5 dobeginWriteln('Digite um numero:',cont,':');read(num[cont]);if num[cont]=0 thennulos[cont]:=1else nulos[cont]:=num[cont]; end; for cont:=1 to 5 dowriteln('num: [',num[cont],']'); for cont:=1 to 5 dowriteln('nulos: [',nulos[cont],']');End. Escreva um que leia um vetor G de 20 elementos caractere que representa o gabarito de uma prova. A seguir, para cada um dos 50 alunos da turma, leia o vetor de respostas (R) do aluno e conte o numero de acertos. Mostre o no de acertos do aluno e uma mensagemAPROVADO, se a nota for maior ou igual a 6; e mostre uma mensagem de REPROVADO, caso contrario.Program Pzim ;VARcerta,soma, cont, cont1,alunos : integer;G:array[1..20]of char;R:array[1..20]of char;Beginsoma:=0;for cont1:=1 to 5 dobeginwriteln ('digite a resposta da questao ', cont1);readln (G[cont1]);end;writeln ('Gabaritoinserido');writeln;for alunos:=1 to 3 dobeginfor cont:=1 to 5 dobeginwriteln ('ALUNO [ ',alunos,' ]Digite a resposta ',cont);readln (R[cont]);if (R[cont] = G[cont]) thensoma:=soma+1;end;if (soma>=3) thenWriteln ('Aluno ',alunos,' aprovado')elseWriteln('Aluno ',alunos,' reprovado');Writeln;Writeln;soma:=0;Writeln('------------------------------------');end;End. Matriz e Registro{1 - Faca um programa que leia o nome de dez alunos e respectivas1a, 2a, 3a e 4a notas, a seguir calcule a media. Escreva o nomedo aluno e a sua media. }program aluno_nota;varaluno: array[1..10,1..4] of integer;nome: array[1..10] of string;soma, media: array [1..4] of real;linha, coluna: integer;beginfor linha := 1 to 10 dobeginwriteln ('Digite o nome do aluno: ');readln (nome[linha]);for coluna := 1 to 4 dobeginwriteln ('Digite a nota da ', coluna, ' a prova do aluno, nome[linha]);readln (aluno[linha,coluna]);soma [linha] := soma [linha] + aluno[linha,coluna];end;end;for linha := 1 to 10 dobeginmedia [linha] := (soma[linha])/4;writeln ('A media do aluno ', nome[linha], '', 'foi: ',media[linha]:2:2);end;end. Para o primeiro exercicio inclua quantos valores estao acima e abaixo da mediaProgram ;var maior, menor, soma, cont, con, cot : integer; media :real; vetor: array[1..50] of integer; pmaior, pmenor, qacima, qabaixo: integer;Begin maior:=0; menor:=101; soma:=0; cont:=0; for cont:=1 to 50 do begin randomize; vetor[cont] := (random(99)+1); if(vetor[cont] > maior)then begin maior:= vetor[cont]; pmaior:= cont; end; if(vetor[cont] < menor)then begin menor := vetor[cont]; pmenor:= cont; end; soma:= soma + vetor[cont]; end; media:= soma/50; for cot:=1 to 50 do begin if(vetor[cot]> media) then qacima:= qacima +1; if(vetor[cot] end; for con:=1 to 50 do write(' [',vetor[con],'] '); writeln(''); writeln(''); writeln('A media dos numeros e ',media); writeln('O maior numero e ',maior,' e esta na posicao ',pmaior); writeln('O menor numero e ',menor,' e esta na posicao ',pmenor); writeln(qacima,' numero estao acima da media'); writeln(qabaixo,' numero estao abaixo da media'); Faca um programa para apontar os resultados de uma pesquisa eleitoral para presidente da republica de Kneippopolis, o mais novo pais da America do Sul. Os candidatos sao: Zico, Ricardo Kneipp, Obina e Geninho. Escreva o total e o percentual de votos de cada candidato. A seguir escreva o nome do novo presidente do pais com maior IDH do planeta.Program Pzim ;varvoto:char;cont,somaZ,somaR,somaO,somaG,somaN,maior:integer;percZ,percR,percO,percG:real;nomepres:string;Beginmaior:=0;writeln('Pesquisa eleitoral para presidente da republica de Kneippopolis');writeln;writeln('Os candidatos sao: Zico, Ricardo Kneipp, Obina e Geninho');writeln; for cont:=1 to 10 do begin writeln('De seu voto:Zico - Z, Ricardo Kneipp - R, Obina - O, Geninho - G'); read(voto); clrscr;