Pascal/Turbo Pascal - Ayuda!!

   
Vista:

Ayuda!!

Publicado por Estefania (2 intervenciones) el 28/11/2012 19:20:09
De 10 numeros ingresados determinar cuantos y cuales son pares usando arreglos !

no tengo ni idea de como hacerlo ayudenme porfis!
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

Ayuda!!

Publicado por ramon (2072 intervenciones) el 28/11/2012 20:57:33
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
{A ver si esto es lo que quieres}
 
program pares;
  uses
    crt;
  var
    arraynume : array[1..10] of integer;
    i, n, num : integer;
    exite : boolean;
  begin
      clrscr;
      randomize;
    repeat
      num := random(54);
      exite := false;
      for i := 1 to n do
      begin
         if arraynume[i] = num then
         exite := true;
         break;
      end;
      if (num > 0) and (exite = false) then
      begin
      arraynume[n] := num;
      n := n + 1;
      end;
    until n > 10;
    num := 0;
    for n := 1 to 10 do
    begin
       if arraynume[n] mod 2 = 0 then
       begin
       write('  ',arraynume[n]);num := num + 1;
       end;
    end;
    writeln;
    writeln('  Estos Son Los N§ pares Total = ',num);
    writeln('   Pulsa [Enter]');
    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

Ayuda!!

Publicado por Estefania (2 intervenciones) el 29/11/2012 03:08:16
la verdad no se programar con arreglos mi maestra no explico el tema & es lo que esta pidiendo para tener derecho a examen! solo dijo que hicieramos un programa que de 10 numeros ingresados mostrara cuantos y cuales (que numeros) son pares usando arreglos!
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

Ayuda!!

Publicado por ramon (2072 intervenciones) el 29/11/2012 17:26:06
Bien eso es lo que pedías arraynume : array[1..10] of integer; esto es el arreglo de 10 elementos
de integer p sea números enteros no decimales.
Por lo demás esto

repeat
num := random(54);
exite := false;
for i := 1 to n do
begin
if arraynume[i] = num then
exite := true;
break;
end;
if (num > 0) and (exite = false) then
begin
arraynume[n] := num;
n := n + 1;
end;
until n > 10;

Lo puedes cambiar por esto
for n := 1 to 10 do
readln(arraynume[n]);
con lo cual los números los tendrás que poner a mano cuando te los pida
Si necesitas ayuda ya sabes donde encontrarla estamos para ayudar suerte.
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