loco.pas

   1 (*************************************************************************)\r
   2 (*                                                                       *)\r
   3 (* Programa Loco: se ingresa una sucesion de numeros. Se utilizan los    *)\r
   4 (* ~~~~~~~~~~~~~~ ceros (0) para separar. Lo que se encuentra entre ce-  *)\r
   5 (* ros se suma. Ingresando dos ceros seguidos se finaliza la entrada de  *)\r
   6 (* datos. Al finalizar el programa, imprime el valor de la suma m s alta *)\r
   7 (*                                                                       *)\r
   8 (*************************************************************************)\r
   9 \r
  10 PROGRAM Loco;\r
  11 \r
  12 VAR\r
  13    haydoblecero, haycero: boolean;\r
  14    n, ante, suma, max: integer;\r
  15 \r
  16 BEGIN\r
  17      haycero := false;\r
  18      haydoblecero := false;\r
  19      max := -MAXINT;\r
  20      suma := 0;\r
  21      writeln('Ingrese una sucesion de n£meros, ingrese dos ceros seguidos para finalizar.');\r
  22      REPEAT\r
  23            write('Ingrese un n£mero: ');\r
  24            readln(n);\r
  25            IF n = 0 THEN IF haycero THEN haydoblecero := true\r
  26                                     ELSE BEGIN\r
  27                                               haycero := true;\r
  28                                               IF suma >= max THEN max := suma;\r
  29                                               suma := 0;\r
  30                                          END\r
  31                     ELSE BEGIN\r
  32                               suma := suma + n;\r
  33                               haycero := false;\r
  34                          END;\r
  35      UNTIL haydoblecero;\r
  36      writeln('La suma mayor es ', max,'.');\r
  37 END.\r