• Lenguaje

    Pascal

  • Descripción

    Se ingresa por teclado la cantidad de agua caída, en milímetros día a día durante un mes. Se pide determinar el día de mayor lluvia, el de menor y el promedio.

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 AguaCaidaDuranteUnMes;
uses crt;

var dia_mayor, dia_menor, i : integer;
var cantidad_de_agua_en_mm, cantidad_mayor, cantidad_menor, promedio : real;
begin
    dia_mayor := 0;
    dia_menor := 0;
    cantidad_mayor := 0;
    cantidad_menor := 0;
    promedio := 0;
    for i:=1 to 30 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de cantidad de agua en mm: ');
        readln (cantidad_de_agua_en_mm);
        promedio := promedio+cantidad_de_agua_en_mm;
        if (i=1) or (cantidad_mayor<cantidad_de_agua_en_mm) then
            begin
                cantidad_mayor := cantidad_de_agua_en_mm;
                dia_mayor := i;
            end;
        if (i=1) or (cantidad_menor>cantidad_de_agua_en_mm) then
            begin
                cantidad_menor := cantidad_de_agua_en_mm;
                dia_menor := i;
            end;
        writeln;
    end;
    promedio := promedio/30;
    writeln ('Valor de dia mayor: ', dia_mayor);
    writeln ('Valor de dia menor: ', dia_menor);
    writeln ('Valor de cantidad mayor: ', cantidad_mayor:0:6);
    writeln ('Valor de cantidad menor: ', cantidad_menor:0:6);
    writeln ('Valor de promedio: ', promedio:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.