Maior numero do Vetor
Publicado por Leonardo 26/05/2007
[ Hits: 6.771 ]
Este script receberá de entrada 3 vetores, mostrará o maior elemento e ainda colocará o vetor digitado.
program vetores; uses crt; type vetor=array[1..100] of integer; var a,b,c:vetor; ma,mb,mc,tam:integer; procedure ler(var v:vetor;dim:integer); var i:integer; begin for i:=1 to dim do begin readln(v[i]); end; end; procedure escrever(var v:vetor;dim:integer); var i:integer; begin for i:=1 to dim do begin writeln(v[i]); end; end; function maior(x:vetor;tam:integer):integer; var i,v:integer; begin v:=x[1]; for i:=2 to tam do begin if x[i]>v then v:=x[i]; maior:=v end; end; Begin clrscr; writeln('Digite o tamanho do vetores'); readln(tam);writeln; writeln('Digite os valores do vetor A'); ler(a,tam);writeln; writeln('Digite os valores do vetor B'); ler(b,tam);writeln; writeln('Digite os valores do vetor C'); ler(c,tam);writeln; ma:=maior(a,tam); mb:=maior(b,tam); mc:=maior(c,tam); clrscr; writeln('O maior elemento do vetor A eh : ',ma); writeln('O vetor A eh '); escrever(a,tam);writeln; writeln('O maior elemento do vetor B eh : ',mb); writeln('O vetor B eh '); escrever(b,tam);writeln; writeln('O maior elemento do vetor C eh : ',mc); writeln('O vetor C eh '); escrever(c,tam);writeln; writeln('Aperte Enter para sair'); readln end.
mostrar a meior e a menor temperatura do ano com vetor
Exemplo de for que mostra 6 números em ordem crescente
Números primos (usando arrays)
controle de notas de um aluno com registro e array
controle de notas de uma clase com vetor e registro
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Bora fazer um teste? mbti (14)
Aprendendo mais sobre Linux com livro (7)