Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Ejercicio turbo pascal

Pascal/Turbo Pascal - Ejercicio turbo pascal

Volver
Nuevo Tema
<<>>
 
Vista:

Ejercicio turbo pascal

Publicado por Viviana (1 intervención) el 26/09/2012 18:18:48
Hola,buenas tarde,quisiera ayuda con este ejercicio,lo hice pero me sale error todo el rato.el ejercicio es el siguiente:
Lee una secuencia de enteros terminada en 0 y obtén de veces que un numero par aparece en posicion par.
Ejemplo: 3 5 4 6 7 8 3 4 0
Devolverá 3(en concreto,los valores 6,8,4)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ejercicio turbo pascal

Publicado por ramon (2158 intervenciones) el 26/09/2012 19:46:18
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
40
41
42
43
44
{A ver  si sirve esto}
 
program pares;
 uses
    crt;
  var
    numeros : array[1..100] of integer;
    n : integer;
 
 
  procedure entranumeros;
  var
     nume : integer;
  begin
     clrscr;
     n := 1;
   repeat
      write('Entre El ',n,' N§ ');
      readln(nume);
      if nume > 0 then
      begin
      numeros[n] := nume;
      n := n + 1;
      if n > 100 then
      n := 100;
     end;
   until nume = 0;
  end;
 
  procedure numerospares(nn : integer);
  var
     par : integer;
  begin
     for par := 1 to nn do
     if numeros[par] mod 2 = 0 then
     write(' ',numeros[par]);
  end;
 
  begin
     entranumeros;
     clrscr;
     numerospares(n - 1);
     readln;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar