Cantidad de agua caída en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
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

Proceso CantidadDeAguaCaida

    dia_de_mayor_lluvia <- 0;

    dia_de_menor_lluvia <- 0;

    mayor <- 0;

    menor <- 0;

    promedio <- 0;

    Para i<-1 Hasta 10 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de cantidad de agua:";

        Leer cantidad_de_agua;

        promedio <- promedio+cantidad_de_agua;

        Si i = 1 O cantidad_de_agua>mayor Entonces

            mayor <- cantidad_de_agua;

            dia_de_mayor_lluvia <- i;

        FinSi

        Si i = 1 O cantidad_de_agua<menor Entonces

            menor <- cantidad_de_agua;

            dia_de_menor_lluvia <- i;

        FinSi

        Escribir "";

    FinPara

    promedio <- promedio/10;

    Escribir "Valor de dia de mayor lluvia: ", dia_de_mayor_lluvia;

    Escribir "Valor de dia de menor lluvia: ", dia_de_menor_lluvia;

    Escribir "Valor de mayor: ", mayor;

    Escribir "Valor de menor: ", menor;

    Escribir "Valor de promedio: ", promedio;

FinProceso