Program mensortir angka dengan bahasa pascal

Mensortir nilai jika data yang diinput adalah 4 maka akan diminta untuk menginput data sebanyak 4 kali. setelah anda menginput 4 data atau angka yang diminta maka akan mensortir nilai data yang anda masukan mulai dari urutan angka yang paling terkecil.

Coding program :

uses crt;
var kata:string;
i,j,n,temp:integer;
angka:array [1..10] of integer;
procedure input;
begin
write ('banyak data : ');
readln(n);
for i := 1 to n do
begin
write ('data ke-',i,' = ');
readln (angka[i]);
end;
end;
procedure proses;
begin
for i := 1 to n do
for j := 1 to n do
end;
begin
clrscr;
input;
proses;
readln;
end;

Keterangan: program akan eror jika data yang dinput tidak bertipe data numerik

Artikel terkait :