Exercício 11 Funções e Procedimentos - Pascal

11) Elabore um programa que leia cinco valores inteiros. Chame um procedimento para determinar o maior e o menor deles. Ao final, mostre o resultado.

Program Fun11;
const MAX=5;
Type 
    vetor=array[1..MAX] of integer; {cria um Tipo para fazer a passagem por parametro}
var  
 i:integer;
 V:vetor; {V é um vetor de 5 posições}
 
procedure menor_maior(V:vetor); {fica mais simples as passagens}
var maior,menor:integer;
 Begin    
    menor:=V[1]; {atribuinto o 1º valor do vetor para testar com os demais}
    maior:=V[1]; {atribuinto o 1º valor do vetor para testar com os demais}    
        for i := 1 to MAX do
            Begin
                if (V[i] < menor)   then
                    menor := V[i];
                if (V[i] > maior) then
                    maior := V[i];    
            End;
    Writeln('Menor Valor: ',menor);                
    Writeln('Maior Valor: ',maior);
 End;
 
{Main} 
 Begin
  for i := 1 to MAX do
    Begin
        Write(i,' Informe Valor: ');
        readln(V[i]); {a leitura é feita da mesma forma colocando o indice do vetor}
    End;    
    menor_maior(V);  {na chamada apenas coloca a variavel sem indice}
  Writeln('            by Marcus Vinicius');      
 End.

Categories: Pascal , Programação