Pascal/Turbo Pascal - programa mayor y menor

   
Vista:

programa mayor y menor

Publicado por LEONARDO ROMAN kiles578@hotmail.com (3 intervenciones) el 14/03/2013 22:26:32
como diseño un programa en turbo pascal que le ingrese un numero n, luego me pida n numeros y me diga cual es el mayor y cual el menor de ellos.

utilizando for
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 mayor y menor

Publicado por ramon (2072 intervenciones) el 14/03/2013 23:51:02
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
{Esto te valdrá}
 
 program losnumeros;
 uses
   crt;
 var
    n : integer;
    todosnum : array[1..40] of integer;
 
 
   procedure numeros;
   var
     may, i, tem : integer;
   begin
      clrscr;
      write('   Entre numeros a entrar maximo 40 : ');
      readln(n);
      for i := 1 to n do
      begin
         write('  Entre valor N. ',i,' : ');
         readln(todosnum[i]);
      end;
      tem := todosnum[1];
      may := todosnum[1];
      for i := 2 to n do
      begin
      if tem > todosnum[i] then
      tem := todosnum[i];
      if may < todosnum[i] then
      may := todosnum[i];
      end;
      writeln;
      writeln('  Es = ',may,'  Es el mayor Numero');
      writeln('  Es = ',tem,'  Es el menor Numero');
   end;
 
  begin
      numeros;
      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
1
Comentar

programa mayor y menor

Publicado por LEONARDO ROMAN (3 intervenciones) el 15/03/2013 00:11:50
gracias quedo excelente
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