Exercício 08 Vetor - Pascal

8) Utilizando a questão 7, elabore um algoritmo que calcule a média de altura do time.

Program Vet07 ;
var
altura:array[1..12] of real;
nome:array[1..12] of string[5];
posic,i: integer;
media,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
     media:= media + altura[i];
     if (altura[i] > maior) then
      Begin
       posic:= i;
      End; 
    End;
  Writeln('       Mais Alto');   
  Writeln('Nome  : ',nome[posic]);  
  Writeln('Altura: ',altura[posic]:0:3);  
  Writeln('Media de Altura: ',media/12:0:3);
 Writeln('            by Marcus Vinicius'); 
 End.

Categories: Pascal , Programação