Maior numero do Vetor
Publicado por Leonardo 26/05/2007
[ Hits: 6.559 ]
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
Coleta de dados de alunos em Pascal
vendas de uma empresa em matriz
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Envio de link pelo whatsapp (2)
Pi Network.... alguém minera? (8)