Maior numero do Vetor
Publicado por Leonardo 26/05/2007
[ Hits: 6.841 ]
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.
média dos numeros informados em posiçoes pares em um vetor
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Como posso remover arquivos MSG duplicados das minhas pastas de forma ... (0)
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)









