• Lenguaje

    Pascal

  • Descripción

    Un profesor requiere conocer la calificación alta, media y la baja de todo un grupo, para ello, el profesor debe inicialmente indicar la cantidad de estudiantes del grupo y posteriormente ingresar la nota definitiva de cada uno de ellos.

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

var i, n : integer;
var calificacian_alta, calificacian_baja, calificacian_media, nota_definitiva : real;
begin
    calificacian_alta := 0;
    calificacian_baja := 0;
    calificacian_media := 0;
    write ('Ingresa el valor de n: ');
    readln (n);
    for i:=1 to n do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de nota definitiva: ');
        readln (nota_definitiva);
        if (i=1) or (calificacian_alta<nota_definitiva) then
            begin
                calificacian_alta := nota_definitiva;
            end;
        if (i=1) or (calificacian_baja>nota_definitiva) then
            begin
                calificacian_baja := nota_definitiva;
            end;
        calificacian_media := calificacian_media+nota_definitiva;
        writeln;
    end;
    if n = 0 then
        calificacian_media := 0
    else
        calificacian_media := calificacian_media/n;
    writeln ('Valor de calificacian alta: ', calificacian_alta:0:6);
    writeln ('Valor de calificacian baja: ', calificacian_baja:0:6);
    writeln ('Valor de calificacian media: ', calificacian_media:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.