Program Pzim ;
{Utilizando a questão 4, elabore um algoritmo que calcule a média de altura do time.}
var
nome:array [1..5] of string;
altura:array[1..5] of real;
nomemaior:string;
altmaior:real;
i:integer;
media, altmedia:real; {acrescentada para solução da questão 5}
{as variaveis criadas são :
nome, que é o vetor que recebe os nomes dos atletas
altura ,que o vetor que recebe as alturas dos atletas
nomemaior, que recebe o nome do maior jogador
altmaior, que recebe a altura do maior jogador
i, que é o contador }
Begin
for i:=1 to 5 do
begin
writeln('Dados do ',i,'o. jogador. (A ALTURA DEVE SER EM mts, com separação POR "." (PONTO))');
writeln('Digite o nome : ');
readln(nome[i]);
writeln('Digite a altura :');
readln(altura[i]);
clrscr; {limpa a tela}
end;
{o primeiro for é para entrada dos dados dos vetores nome e altura}
for i:=1 to 1 do
begin
if (i=1) then
begin
nomemaior:=nome[1]; {atribui o valor do nome na posição [i]=1 a variavel do nomemaior}
altmaior:=altura[1]; {atribui o valor da altura na posição [i]=1 a variavel do altmaior}
end;
end;
for i:=1 to 5 do
begin
if (altura[i]>altmaior) then
begin
nomemaior:=nome[i];
altmaior:=altura[i];
end;
end;
{compara os demais valores do vetor altura, nas posições [i] de 1 até 5, com a variavel altmaior
se existir em outra posição, uma altura maior, essa é substituida na variavel altmaior}
for i:=1 to 5 do
begin
altmedia:=altmedia+altura[i]
end;
{soma as alturas}
writeln('O maior jogador é : ',nomemaior, ' com ',altmaior:1:2,' metros');
{exibe o nome e a altura do maior jogador}
media:=(altmedia/(i-1)); {calcula a media das altudas}
writeln('A media das alturas é: ', media:1:2,' metros');
{exibe a media das alturas}
End.
