• Martes 18 de Junio de 2019, 06:52

Autor Tema:  EJERCICIO SOBRE VCTORES  (Leído 1238 veces)

tomas_sauron

  • Miembro activo
  • **
  • Mensajes: 56
    • Ver Perfil
EJERCICIO SOBRE VCTORES
« en: Sábado 8 de Enero de 2011, 16:20 »
0
BUEN DIA GNT DEL FORO NECESITO AYUDA CON ESTE PEDAZO DEL ALGORITMO AL INGRESAR EN CICLO WHILE QEDA TILDADO SUSPENDIDO EL PROGRAMA

program max_min;
 uses crt;
 const
      ini=1;
      max=100;

 type
     tnum=integer;
     trango=ini..max;
     tvector=array[trango]of tnum;

 var
     vector:tvector;
     ulpos:tnum;

procedure ingresar(var vector:tvector; var ulpos:tnum);



begin
     ulpos:=ini;
     writeln('ingrese');
     read(vector[ulpos]);
     while(ulpos <= max)and(vector[ulpos] <> 0) do;

         begin
              inc(ulpos);
              writeln('inrese');
              read(vector[ulpos])
         end;

     if vector[ulpos] = 0 then
        dec(ulpos)

end;

begin

     ingresar(vector,ulpos);
     readkey

end.
DESDE YA MUCHAS GRACIAS
Citar

¡Un error ha ocurrido!

Class 'Geshi' not found