Maior numero do Vetor
Publicado por Leonardo 26/05/2007
[ Hits: 6.843 ]
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.
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Calculo do Fatorial Utilizando-se de for
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
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?









