4 - Escreva um algoritimo que leia um vetor de 50 posicoes de numeros inteiros e mostre somente os positivos.Program Pzim ;var num:array[1..5]of integer; cont, i:integer; positivo:array[1..5]of integer; Begin i:= 0; for cont:=1 to 5 do begin writeln('Informe um numero:'); readln(num[cont]); if num[cont]>0 then begin i:= i + 1; positivo[i] := num[cont]; end;end;for cont:=1 to i dowriteln('Os numeros positivos sao:',positivo[cont]);End. 5 - Excreva um algoritimo que leia um vetor de 80 elementos inteiros. encontre e mostre o menos elemento e sua posicao no vetor.Program Pzim ;var num:array[1..5]of integer; cont, menor:integer; Begin menor:=1000; for cont:=1 to 5 do begin writeln('Informe um numero:'); readln(num[cont]);end; if num writeln('O menor numero e', num[cont]); Matrizes e Registros 1.Faca um programa que leia o nome de dez alunos e respectivamente 1a, 2a, 3a e 4a notas, a seguir calcule a media. Escreva o nome do aluno e 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 do begin writeln ('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 dobegin media [linha] := (soma[linha])/4; writeln ('A media do aluno ', nome[linha], '', 'foi: ',media[linha]:2:2);end;end.2.Calcule o total de pessoas aprovadas e reprovadas no exercicio acima.Program Pzim ;var nome:array[1..10]of string; nota:array[1..10,1..4]of integer; media,soma:array[1..10]of real; linha,coluna,aprov,reprov:integer;Begin for linha:=1 to 10 do begin writeln(linha,'- Informe o nome do aluno:'); readln(nome[linha]); for coluna:=1 to 4 do begin writeln(coluna,'- nota: ' ); readln(nota[linha,coluna]); soma[linha]:= soma[linha]+nota[linha,coluna] end; media[linha]:=(soma[linha])/4; writeln('A media do aluno(a) ',nome[linha],' foi: ',media[linha]:2:2); writeln; end; clrscr; for linha:=1 to 10 do begin if (media[linha]>=60) then aprov:=aprov+1 else reprov:=reprov+1end;writeln('Foram aprovados: ',aprov,' alunos.'); writeln('Foram reprovados: ',reprov,' alunos.');End.3.Faca um programa que leia o nome de tres cidades e a seguir cadastre e exiba na tela a distancia entre essas cidades.Program Distancia;var cidade:array[1..3]of string; distancia:array[1..3,1..3]of real; linha,coluna,cont:integer;Begin for cont:= 1 to 3 do begin writeln(cont,' - Digite o nome da cidades:'); readln(cidade[cont]); clrscr; end; for cont:= 1 to 3 do writeln(cont,' - Voce digitou as cidades:',cidade[cont]); for linha:=1 to 3 do begin for coluna:= 1 to 3 do begin if (linha = coluna) then distancia[linha,coluna]:=0 else begin writeln(' Agora informe a distancia entre ',cidade[linha],' e ',cidade[coluna]); readln(distancia[linha,coluna]); // distancia[linha,coluna]):= distancia[coluna,linha]; end; end; end; for coluna:=1 to 3 do begin for cont:= 1 to 3 do begin writeln('As distancia entre as cidade ',cidade[coluna],' e ',cidade[linha] ); end;end;End.4.Faca um programa para criar um cadastro de mercadorias que contenha os seguintes dados: codigo da mercadoria, descricao, data de cadastro, ultima saido, saldo em estoque.A seguir escreva todos o codigo da mercadoria e a descricao de todas as mercadorias cadastradas. A seguir todos os dados da mercadoria que apresenta o maior saldo em estoque.Obs.: O programa deve ser feito para cadastro de 1000 produtos diferentes.Program Pzim ;type prod = record codMerc: integer; descricao:string; dataCadastro:integer; ultimaSaida:integer; saldoEstoque:integer;end;var cont,m,c:integer; cadastro: array[1..1000] of prod;Begin m:=0; for cont:=1 to 2 do begin writeln('Codigo da mercadoria:'); readln(cadastro[cont].codMerc); writeln('Descricao:'); readln(cadastro[cont].descricao); writeln('Data de Cadastro:'); readln(cadastro[cont].dataCadastro); writeln('Ultima saida:');