Exercício 04 Vetor - Pascal

4) Faça um programa em Pascal que carregue um vetor com 15 posições, calcule e mostre:
a) O maior elemento do vetor e em que posição esse elemento se encontra;
b) O menor elemento do vetor e em que posição esse elemento se encontra.

Program Vet04;
var
 vetor:array[1..5] of integer;
 i:integer;
 pos_me,pos_ma,maior,menor:integer;
 Begin
  for i:= 1 to 5 do
   Begin
    Write('Informe ',i,' Valor: ');
    readln(vetor[i]);
   End;
  pos_ma:=1;
  pos_me:=1;
  maior:=vetor[1];
  menor:=vetor[1];
  for i:= 1 to 5 do
   Begin 
    if vetor[i] > maior then
     Begin
       maior:= vetor[i];
       pos_ma:= i;
     end; 
    if vetor[i] < menor then
     Begin
       menor:=vetor[i];
      pos_me:= i; 
     end;    
   End; 
 Writeln('Maior Valor ',maior,' Posicao ',pos_ma);  
 Writeln('Menor Valor ',menor,' Posicao ',pos_me);  
 End.

Categories: Pascal , Programação