Sugestoes pra um algoritmo meio chato

é o meu primeiro post

é so pra vocês verem se tem algum erro, se tem um jeito mais fácil pra fazer isso, e outras coisas, esse foi o jeito q eu consegui

se tiver muitos erros n liguem n, é q meu prof ensina em portugol e eu to fazendo em pascal mas nunca programei to vendo tudo agora e nem vi todos os codigos de laço ainda

postem ae as sugestoes e qualquer coisa..

essa é a questão:

Em cada uma das 24 horas do dia foram registradas a temperatura e a umidade do ar, numa tabela. Faça um algoritmo para calcular a temperatura media em determinado dia. O algoritmo devera imprimir a hora que corresponde a maior umidade e a hora que corresponde a menor umidade

Program temperatura_media ;

var hora , temperatura , umidade : integer
umi_maior , umi_menor , temp_media , hora_1 , hora_2 : integer;


Begin

 	hora := 1;
 	temp_media := 0;
 	while (hora <= 24) do
	   begin
	      write('Insira a temperatura correspondente a ' , hora , ' hora (s)' , ': ');
	      readln(temperatura);
	      temp_media := temp_media + temperatura;
	      hora := hora + 1;
	   end;
	hora := 1;
	write('Insira a umidade: ');
	readln(umidade);
	umi_maior := umidade;
	umi_menor := umidade;
	hora_1 := hora;
	hora_2 := hora;
	while (hora <= 24) do
	   begin
	      write('Insira a umidade: ');
	      readln(umidade);
	      if (umidade > umi_maior)
	        then
	      	      begin
	      	          umi_maior := umidade;
	      	          hora_1 := hora;
	      	      end;
	      if(umidade < umi_menor)
	        then
	      	      begin
	      	          umi_menor := umidade;
	      	          hora_2 := hora;
	      	          end; 
	      	          hora := hora + 1;
	      	      end;
 	writeln('A temperatura media e: ' , temp_media / 24:2:0);
	writeln('A hora que tem a maior umidade e: ' , hora_1);
	writeln('A que possui a menor umidade e: ' , hora_2);
 End.

me diz qual o calculo e eu faço um algoritimo...

por exemplo o que ele quer é isso?

estamos na sexta hora, portanto temmos 6 valores, esntão somamos estes 6 valores e dividimos por 6... é isso???

é assim, em cada uma das 24 horas do dia é medida a temperatura e a umidade uma vez.. ai o prof pediu pra fazer um algoritmo q o usuario colocasse a temperatura e a umidade e saía a temperatura media do dia (que é a soma de todas as temperaturas medidas dividido por 24), e mostrasse tb a hora q teve a umidade maior e a umidae menor...

é isso q você falou só q com as 24 horas

program temperatura;
uses crt;
var
cont,hmax,hmin: integer;
temp,max,min,media,temp_t: real;
begin
clrscr;
write('Entre com a temperatura da 1a hora: '); read(media);
write('Entre com a umidade da 1a hora: '); read(max);
min:= max;
hmax:= 1; hmin:= 1;
for cont:= 2 to 24 do
  begin
  write('Entre com a temperatura da ',cont,'a hora: '); read(temp_t);
  media:= media+temp_t;
  write('Entre com a umidade da ',cont,'a hora: '); read(temp);
  if temp > max then
                  begin
                  max:= temp;
                  hmax:= cont;
                  end;
  if temp < min then
                  begin
                  min:= temp;
                  hmin:= cont;
                  end;
  end;
  clrscr;
  writeln('Temperatura media do dia: ',(media / 24):5:2);
  writeln('Maxima umidade: ',hmax,'a hora (',max:5:2,')');
  writeln('Minima umidade: ',hmin,'a hora (',min:5:2,')');
readkey;
end.

OBS.: Ao rodar usar ponto para separar valores decimais...

valeu cara bem menor q o meu...

mas o prof falou q o meu tava bom só q ainda dava pra olhar umas coisas..

legal. valeu.