01. FAÇA UM PROGRAMA ONDE SEJA DIGITADO O PESO DE 10 BOIS E AO FINAL O PROGRAMA INFORMA:
a) O MAIOR PESO
b) O MENOR PESO
c) A MÉDIA DE PESO
d) O NUMERO DE BOIS COM O MAIOR PESO
e) O NUMERO DE BOIS COM O MENOR PESO
f) O NUMERO DE BOIS COM A MÉDIA DE PESOS
g) A PORCENTAGEM DE BOIS ABAIXO DA MEDIA
h) A PORCENTAGEM DE BOIS ACIMA DA MEDIA.
PROGRAM PESO_BOIS ;
VAR
PESO,A,B,C,D,E,F,G,H,I,J,TODOS_PESOS,MEDIA,PORCE_MAIOR,PORCE_MENOR,PESO_MAIOR,PESO_MENOR:REAL;
K, N_P_M, N_P_ME,CIMA_MEDIA,BAIXO_MEDIA,IGUAL_MEDIA:INTEGER;
BEGIN
PESO_MAIOR := 0; PESO_MENOR := 9999;
FOR K := 1 TO 10 DO
BEGIN
WRITE('DIGITE O PESO DO BOI ',K,': ');
READ(PESO);
TODOS_PESOS := TODOS_PESOS + PESO;
IF PESO > PESO_MAIOR THEN
BEGIN PESO_MAIOR := PESO; N_P_M := 0; END;
IF PESO < PESO_MENOR THEN
BEGIN PESO_MENOR := PESO; N_P_ME := 0; END;
IF PESO = PESO_MAIOR THEN
BEGIN N_P_M := N_P_M + 1; END;
IF PESO = PESO_MENOR THEN
BEGIN N_P_ME := N_P_ME + 1; END;
CASE K OF
1: A := PESO;
2: B := PESO;
3: C := PESO;
4: D := PESO;
5: E := PESO;
6: F := PESO;
7: G := PESO;
8: H := PESO;
9: I := PESO;
10: J := PESO;
END;
END;
MEDIA := TODOS_PESOS/10;
IF A > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF A < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF B > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF B < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF C > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF C < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF D > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF D < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF E > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF E < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF F > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF F < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF G > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF G < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF H > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF H < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF I > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF I < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF J > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF J < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
PORCE_MAIOR := (CIMA_MEDIA*100)/10;
PORCE_MENOR := (BAIXO_MEDIA*100)/10;
WRITELN('PESO MAIOR É: ',PESO_MAIOR:0:2,'Kg');
WRITELN('PESO MENOR É: ',PESO_MENOR:0:2,'Kg');
WRITELN('MEDIA TOTAL: ',MEDIA:0:2,'Kg');
WRITELN('QUANTIDADE DE PESO MAIOR: ',N_P_M);
WRITELN('QUANTIDADE DE PESO MENOR: ',N_P_ME);
WRITELN('QUANTIDADE DE PESO IGUAL A MEDIA: ',IGUAL_MEDIA);
WRITELN('PORCENTAGEM DOS ACIMA DA MEDIA: ',PORCE_MAIOR:0:2,'%');
WRITELN('PORCENTAGEM DOS ABAIXO DA MEDIA: ',PORCE_MENOR:0:2,'%');
END.
