Pascal/Turbo Pascal - programa en free pascal

   
Vista:

programa en free pascal

Publicado por yesica (3 intervenciones) el 23/05/2012 04:50:44
hola amigos bueno.. necesito su ayuda para
escribir un programa q invierta el contenido de N numeros almacenados en un arreglo.el primero se vuelve el ultimo;el segundo se vuelve el penultimo y asi sucesivamente.
gracias por su atencion.. buena noche

5 qdan entonces asi: 10,42,23,18,5
18
23
42
10
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

programa en free pascal

Publicado por ramon (2072 intervenciones) el 23/05/2012 14:11:20
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
{A ver esto es lo que pides}
 
 program cambianum;
 uses
    crt;
  var
    numeros : array[1..10] of integer;
    n : integer;
  begin
      n := 1;
      while n <> 11 do
      begin
      clrscr;
      writeln('Entre 10 numeros enteros : ');
      write('Numero  ',n,' : ');
      readln(numeros[n]);
      n := n + 1;
      end;
      clrscr;
      writeln('Los Numeros Escritos son');
      writeln;
      for n := 1 to 10 do
      write(numeros[n]);
      writeln;
      writeln('La Imversion del Array Es ');
      writeln;
      for n := 10 downto 1 do
      write(numeros[n]);
      writeln;
      writeln('Pulse [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