Question

nhập vào một mảng gồm n số nguyên và số nguyên k .tim và đưa ra màn hình:sắp xếp mảng theo thứ tự tăng dần

Answer 1

uses crt;

var a:array[1..250]of integer;

i,n,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

 write(a[i]:4);

readln;

end.