Calcula média de pesos, o maior peso, o menos peso, Pascal

Calcula média de pesos, o maior peso, o menos peso

Program Pzim ;
var
nome, nomemaior, nomemenor: string;
maiorp, menorp, peso, soma: real; 
qtd: integer;
Begin
    maiorp := -1; // isso forçará o primeiro valor lido a se tornar o maior pois qualquer valor será maior que -1
    menorp := 9999;  // isso forcará o primeiro valor lido a se tornar o menor pois qualque valor é menor que 9999
    soma := 0 ;  // zera a soma para fins de cálculo de média
    for qtd:=1 to 3 do begin
        write('Informe o nome da pessoa: ');  // obtem o nome da pessoa
        readln(nome);
        write('Informe o peso da pessoa: ');   // obtem o peso da pessoa
        readln(peso);
        soma:= soma + peso ; // soma o peso 
        if (peso > maiorp) then  begin    // se o peso for maior que o maior peso 
            nomemaior := nome;  // salva o nome do maior 
            maiorp := peso;   // o maior peso passa a ser esse
        end;
        if (peso < menorp) then begin   // se o peso for menor que o menor peso
           nomemenor := nome;    // salva o noem do menor
           menorp := peso;   // o menor peso passa a ser esse
        end;
    end;
    writeln;
    writeln('Maior peso = ',maiorp:4:1, ' e ‚ da pessoa ',nomemaior);
    writeln('Menor peso = ',menorp:4:1, ' e ‚ da pessoa ',nomemenor);
    writeln('A amplitude é de ',maiorp-menorp:4:1);  
    writeln('A média de peso é ', (soma / 3):4:1 );   // soma dividido por 3 é a média de pesos

End.


run \| edit \| history \| help	0