algoritmo

Program ficha5 ;
Var
	IdAlt : array [1..2,1..30] of Integer ;
	n , op : Integer ;
	mediaaltura , mediaidade : Real ;

Procedure LerDados;
Var
	i : Integer;
Begin
	Writeln('Introduza o número de alunos');
	Readln(n);
		For i := 1 To n Do
   		Begin
			Writeln('Introduza a idade do ', i ,' aluno');
         		Readln(IdAlt[1,i]);

         		Writeln('Introduza a altura do ', i ,' aluno');
         		Readln(IdAlt[2,i]);
      	End;
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End;


Procedure VerDados ;
Var
	i : Integer;
Begin
	Writeln('Número     Idade     Altura');
		For i := 1 To n Do
		Begin
			Write(i ,'          ', IdAlt[1,i] ,'          ', IdAlt[2,i]);
			Writeln;
		End ;
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End ;


Procedure RetificarDados ;
Var
	retificar , i : Integer ;
Begin
	Writeln('Introduza o número do aluno que pretende retificar');
	Readln(retificar);
		For i := 1 To n Do
   		Begin
   			If (retificar = i) Then
   			Begin
				Writeln('Introduza a idade do ', i ,' aluno');
         			Readln(IdAlt[1,i]);

         			Writeln('Introduza a altura do ', i ,' aluno');
         			Readln(IdAlt[2,i]);
      		End;
      	End ;
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End ;


Procedure MediaIdades ;
Var
	i , soma : Integer ;
Begin
	Soma := 0 ;
		For i := 1 To n Do
		Begin
			Soma := Soma + IdAlt[1,i] ;
		End ;
	Mediaidade := soma/n ;
	Writeln('Média de idades = ', mediaidade:3:2);
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End ;

Procedure MediaAlturas ;
Var
	i , soma : Integer ;
Begin
	Soma := 0 ;
		For i := 1 To n Do
		Begin
			Soma := Soma + IdAlt[2,i] ;
		End ;
	Mediaaltura := soma/n ;
	Writeln('Média de alturas = ', mediaaltura:3:2);
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End ;

Procedure Mais16AlturaInferior ;
Var
	i : Integer ;
Begin
	Writeln('Número     Idade     Altura');
		For i := 1 To n Do
		Begin
			If (IdAlt[1,i] > 16) and (IdAlt[2,i] < mediaaltura) Then
			Begin
				Write(i ,'          ', IdAlt[1,i] ,'          ', IdAlt[2,i]);
				Writeln;
			End ;
		End ;
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End ;

Procedure IdadeSuperiorMedia ;
Var
	i : Integer ;
Begin
	Writeln('Número     Idade     Altura');
		For i := 1 To n Do
		Begin
			If (IdAlt[1,i] > mediaidade) Then
			Begin
				Write(i ,'          ', IdAlt[1,i] ,'          ', IdAlt[2,i]);
				Writeln;
			End ;
		End ;
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End ;

Procedure AlunoMaisAlto ;
Var
	i , maximo , auxiliarnumero , auxiliaridade : Integer ;
Begin
	maximo := 0 ;
		For i := 1 To n Do
		Begin
			If (IdAlt[2,i] > maximo) Then
			Begin
				maximo := IdAlt[2,i] ;
				auxiliarnumero := i ;
				auxiliaridade := IdAlt[1,i] ;
			End ;
		End ;
	Writeln('Número     Idade     Altura');
	Write(auxiliarnumero ,'          ', auxiliaridade ,'          ', maximo);
	Writeln;
	Writeln('Pressione qualquer tecla para voltar ao menu');
	Readkey;
	ClrScr;
End ;

Begin
	Repeat
	Writeln(' ');
	Writeln('____________________________ MENU ____________________________');
	Writeln('1 - Introduzir dados');
	Writeln('2 - Visualizar dados');
	Writeln('3 - Retificar a idade/altura dado o número do aluno');
	Writeln('4 - Média de idades da turma');
	Writeln('5 - Média de alturas da turma');
	Writeln('6 - Número de alunos com mais de 16 anos com altura inferior à média');
	Writeln('7 - Número de alunos com idade superior à media de idades');
	Writeln('8 - Aluno mais alto');
	Writeln('9 - Sair');
	Readln(op);

	Case op of
	1 : LerDados ;
	2 : VerDados ;
	3 : RetificarDados ;
	4 : MediaIdades ;
	5 : MediaAlturas ;
	6 : Mais16AlturaInferior ;
	7 : IdadeSuperiorMedia ;
	8 : AlunoMaisAlto ;
	End ;
	Until op = 9 ;
End.