Exercício 06 While - Pascal

6) Num frigorífico existem 90 bois. Cada boi traz preso em seu pescoço um cartão contendo seu
número de identificação e seu peso. Fazer um algoritmo que escreva o número e peso o boi mais gordo
e do boi mais magro.

Program while06 ;
var
iden,cont: integer;
peso,maior,menor: real;
 Begin
   Write('1 N Identificacao: ');
   readln(iden);
   Write('1 Peso: ');
   readln(peso);
   maior := peso;
   menor := peso;
   cont  := 2;
  while (cont <= 5) do
   Begin
   Write(cont,' N Identificacao: ');
   readln(iden);
   Write(cont,' Peso: ');
   readln(peso);
    if (peso < menor) then
     menor := peso;
    if (peso > maior) then
     maior := peso; 
   cont := cont + 1;
   end;
  Writeln('Mais Gordo ',iden,' Peso ',maior:0:3);
  Writeln('Mais Magro ',iden,' Peso ',menor:0:3);
Writeln('               by Marcus Vinicius');  
 End.

Categories: Pascal , Programação