• Lenguaje

    Pascal

  • Descripción

    Se tienen el peso de 100 personas, se debe construir un algoritmo que calcule e imprima cuántas personas pesan menos de 50 kilos, cuántas pesan entre 51 y 70 kilos y cuántas pesan más de 70 kilos; también el promedio general de peso.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program PesosDePersonas;
uses crt;

var entre_51_y_70, i, mas_de_70, menos_de_50, peso : integer;
var promedio_general : real;
begin
    entre_51_y_70 := 0;
    mas_de_70 := 0;
    menos_de_50 := 0;
    promedio_general := 0;
    for i:=1 to 100 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de peso: ');
        readln (peso);
        if peso<51 then
            begin
                menos_de_50 := menos_de_50+1;
            end;
        if (peso>=51) and (<=70) then
            begin
                entre_51_y_70 := entre_51_y_70+1;
            end;
        if peso>70 then
            begin
                mas_de_70 := mas_de_70+1;
            end;
        promedio_general := promedio_general+peso;
        writeln;
    end;
    promedio_general := promedio_general/100;
    writeln ('Valor de entre 51 y 70: ', entre_51_y_70);
    writeln ('Valor de mas de 70: ', mas_de_70);
    writeln ('Valor de menos de 50: ', menos_de_50);
    writeln ('Valor de promedio general: ', promedio_general:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.