P_28_E12-Contar+numeros+mayores+que+predecesor+en+la+lista

=__**Contar cuantos números son mayores que su predecesor en la lista**__=

> Escribir un programa que lea ocho numeros desde teclado e indique cuantos son mayores que su predecesor en la secuencia de lectura

code format="pascal" PROGRAM P_28_E12 ; VAR i, iNumActual, iNumPredecesor, iContador : Integer ; BEGIN Writeln ; Writeln (' Escribe ocho numeros enteros') ; Writeln ;

iContador := 0 ;

{ Leer el primer número } Write (' Escribe numero 1: ') ; Readln (iNumActual) ;

iNumPredecesor := iNumActual ;

{ Leer los siete números restantes --} FOR i := 2 TO 8 DO BEGIN Write (' Escribe numero ', i,': ') ; Readln (iNumActual) ;

iF iNumActual > iNumPredecesor THEN iContador := iContador + 1 ;

{ En la siguiente iteración el número leido ahora será el predecesor para el siguiente } iNumPredecesor := iNumActual ; END ;

{--- Mostrar los resultados } Writeln ; Writeln (' Cantidad de numeros que eran mayores que su predecesor: ', iContador) ; WriteLn ; ReadLn ; END. code