Program Pascal Mengurut Nilai (Dimensi 1 Array)

Program Mengurut Nilai

      Sesuai postingan sebelumnya, program kali ini hampir sama dengan program sebelumnya.
Program ini hanya mengurutkan nilai dari nilai terkecil ke terbesar dan sebaliknya. Namun, program ini hanya mengurutkan nilai pada satu baris saja. Pengurutan nilai dilakukan dari Inputan nilai pertaman hingga inputan nilai terakhir. Langsung saja ke programnya :



program Nilai_urutan;
uses crt;
var
 Nilai:array [1..15] of integer;
 a, b, c: integer;

begin
clrscr;
for a:=1 to 15 do
 begin
  write ('Masukkan Nilai : '); readln (Nilai[a]);
 end;
     for b:= 1 to 15 do
         for a:= 1 to 15-b do
              if Nilai [a] > Nilai[a+1] then
               begin
                C:=Nilai [a];
                Nilai[a] := Nilai[a+1];
                Nilai[a+1] := C;
               end;
         writeln;
         for a:=1 to 15 do
          write (Nilai[a],' ');
          writeln;
         for a:=15 downto 1 do
          write (Nilai[a],' ');
 readln;
end.