Maior numero do Vetor
Publicado por Leonardo 26/05/2007
[ Hits: 6.801 ]
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.
Editor de Texto feito no Lazarus(Delphi 7 para Linux)
armazenar estoque em uma matriz
Script que verifica se um número é primo ou não
Exemplo de for que mostra 6 números em ordem crescente
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Como instalar o Telegram Desktop no Ubuntu 24.04
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Primeiras impressões do Debian 13 (8)
como resolver o problema de som do linux mint mate (4)
Rede wifi com mesmo ip da rede eth (13)