• Lenguaje

    Pascal

  • Descripción

    Lea la edad y la estatura de 15 personas e imprima el promedio de edad y el promedio de estaturas de dichas personas y muestre cuantas personas están entre 1.60 y 1.80.

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
program EdadYLaEstaturaDe15Personas;
uses crt;

var entre_160_y_180, i : integer;
var edad, estatura, promedio_edad, promedio_estaturas : real;
begin
    entre_160_y_180 := 0;
    promedio_edad := 0;
    promedio_estaturas := 0;
    for i:=1 to 15 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de edad: ');
        readln (edad);
        write ('Ingresa el valor de estatura: ');
        readln (estatura);
        promedio_edad := promedio_edad+edad;
        promedio_estaturas := promedio_estaturas+estatura;
        if (estatura>=1.6) and (estatura<=1.8) then
            begin
                entre_160_y_180 := entre_160_y_180+1;
            end;
        writeln;
    end;
    promedio_edad := promedio_edad/15;
    promedio_estaturas := promedio_estaturas/15;
    writeln ('Valor de entre 160 y 180: ', entre_160_y_180);
    writeln ('Valor de promedio edad: ', promedio_edad:0:6);
    writeln ('Valor de promedio estaturas: ', promedio_estaturas:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.