Maior numero do Vetor
Publicado por Leonardo 26/05/2007
[ Hits: 6.693 ]
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.
Cáculo de Fatorial, utilizando-se de Repeat - Until
Existência de triângulo, em Pascal
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
VMs e Interfaces de Rede desapareceram (12)
Instalação do drive do adaptador wiffi (7)