Cantidad de agua caída en lenguaje Pascal

Lenguaje

Pascal
Descripción

Se ingresa por teclado la cantidad de agua caída, en milímetros día a día durante 10 días. 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
39

program CantidadDeAguaCaida;

uses crt;

var cantidad_de_agua, dia_de_mayor_lluvia, dia_de_menor_lluvia, i, mayor : integer;

var menor : integer;

var promedio : real;

begin

    dia_de_mayor_lluvia := 0;

    dia_de_menor_lluvia := 0;

    mayor := 0;

    menor := 0;

    promedio := 0;

    for i:=1 to 10 do

    begin

        writeln ('PROCESO ', i);

        write ('Ingresa el valor de cantidad de agua: ');

        readln (cantidad_de_agua);

        promedio := promedio+cantidad_de_agua;

        if (i=1) or (cantidad_de_agua>mayor) then

            begin

                mayor := cantidad_de_agua;

                dia_de_mayor_lluvia := i;

            end;

        if (i=1) or (cantidad_de_agua<menor) then

            begin

                menor := cantidad_de_agua;

                dia_de_menor_lluvia := i;

            end;

        writeln;

    end;

    promedio := promedio/10;

    writeln ('Valor de dia de mayor lluvia: ', dia_de_mayor_lluvia);

    writeln ('Valor de dia de menor lluvia: ', dia_de_menor_lluvia);

    writeln ('Valor de mayor: ', mayor);

    writeln ('Valor de menor: ', menor);

    writeln ('Valor de promedio: ', promedio:0:6);

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.