• Lenguaje

    Pascal

  • Descripción

    Suponga que se tiene un conjunto de calificaciones de un grupo de 40 alumnos. Calcular la calificación más alta y la calificación más baja de todo el grupo.

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

var i : integer;
var calificacion, mas_alta, mas_baja : real;
begin
    mas_alta := 0;
    mas_baja := 0;
    for i:=1 to 40 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de calificacion: ');
        readln (calificacion);
        if (i=1) or (mas_alta<calificacion) then
            begin
                mas_alta := calificacion;
            end;
        if (i=1) or (mas_baja>calificacion) then
            begin
                mas_baja := calificacion;
            end;
        writeln;
    end;
    writeln ('Valor de mas alta: ', mas_alta:0:6);
    writeln ('Valor de mas baja: ', mas_baja:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.