Program Sortir (Mengurutkan data)

program sort;
uses wincrt;
var
angka: array[1..100] of integer;
n,i,a, temp: integer;
begin
write('masukan banyak data : '); readln(n);


writeln('Sebelum diurutkan : ');
for i:=1 to n do
begin
write('angka ke-', i, '  : ');readln(angka[i]);
end;


for i:=1 to n-1 do
begin
for a:=i+1 to n do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;


writeln('Setelah diurutkan : ');
for i:=1 to n do
begin
writeln('angka ke-', i, '  : ', angka[i]);
end;
end.

Posted in: PASCAL