Maior numero do Vetor
Publicado por Leonardo 26/05/2007
[ Hits: 6.721 ]
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.
Coleta de dados de alunos em Pascal
Existência de triângulo, em Pascal
script para ler um vetor e mostrar o conteúdo
Nenhum comentário foi encontrado.
Programa IRPF - Guia de Instalação e Resolução de alguns Problemas
Criando uma Infraestrutura para uma micro Empresa
Criar entrada (menuentry) ISO no Grub
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalando o Pi-Hole versão v5.18.4 depois do lançamento da versão v6.0
Instalar o VIM 9.1 no Debian 12
Como saber o range de um IP público?
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Discussão sobre monitoramento da integridade de arquivos (6)
Problema no boot do Linux Mint Cinnamon 22 (4)
Atualização do Google Chrome do Ubuntu [RESOLVIDO] (2)
Instalei Windows 11 e não alterou o Grub do Debian (1)
Jogos baixados na Central de Aplicativos mas que não abrem (0)