Exercício 07 Vetor - Pascal

7) Um time de basquete possui 12 jogadores. Elabore um algoritmo que, dados dois vetores NOME e
ALTURA, calcule e imprima o nome do jogador mais alto e a sua altura.

Program Vet07 ;
var
altura:array[1..12] of real;
nome:array[1..12] of string[5];
posic,i: integer;
maior:real;
 Begin
   for i:= 1 to 12 do
    Begin
     Write('Informe ',i,' Nome: ');
     readln(nome[i]);
     Write('Informe ',i,' Altura: ');
     readln(altura[i]);
    End;
    maior:= altura[1];
    posic:=1;
   for i:= 1 to 12 do
    Begin
     if (altura[i] > maior) then
      Begin
       posic:= i;
      End; 
    End;
  Writeln('       Mais Alto');   
  Writeln('Nome  : ',nome[posic]);  
  Writeln('Altura: ',altura[posic]:0:3);  
  
 Writeln('            by Marcus Vinicius'); 
 End.

Categories: Pascal , Programação