dada una lista de n numeros se pide ordenar la lista de manera ascendente

program logicander;

Uses WinCrt;
const
     N=5;
type
    A=  array [1..N] of integer;
var
   NUM : A;
   I, J, C : integer;
begin

     for I:= 1 to N do
         ReadLn (NUM[I]);
     for I:= 1 to N-1 do
         for J:= I+1 to N do
         if (NUM[I]>NUM[J]) then
         begin
              C:= NUM[I];
              NUM[I]:= NUM[J];
              NUM[J]:= C;
         end;

     writeln ('');
     writeln ('-----------------');
     writeln ('');

     for I:= 1 to N do
         WriteLn (NUM[I]);

end.

Leer más »

Arreglo simple en borland pascal ejemplo

dada una lista de 100 numeros se puede calcular el promedio y luego escribir la lista:
program logicander;

Uses WinCrt;
const
     n=5;
type
    A=  array [1..N] of integer;
var
   NUM : A;
   C : integer;
   PROM : real;
begin
     writeln ('Menu para calcular el promedio');
     for C:= 1 to n do
         readln (NUM[C]);
     PROM:= 0.0;
     for C:= 1 to n do
         PROM:= PROM+NUM[C];
     PROM:= PROM/N;
     writeln (PROM:3:2);
     for C:= 1 to n do
         writeln (NUM[C]);

end.
by prof Argenis Alzuru

Leer más »