uses crt;
var
nama:array[1..10]of string;
n,x,y,indek:integer;
letak:string;
begin
clrscr;
write('Masukkan jumlah data = ');readln(n);
for indek:=1 to n do
begin
write('Data ke ',indek,' =');readln(nama[indek]);
end;
for x:=1 to n-1 do
for y:=x+1 to n do
if nama[x] > nama[y] then
begin
letak:=nama[x];
nama[x]:=nama[y];
nama[y]:=letak;
end;
writeln('Data setelah diurutkan');
for indek:=1 to n do
writeln(indek,'.',nama[indek]);
readln;
end.
Tidak ada komentar:
Posting Komentar