Question

Viết chương trình nhập vào dảy số 7 9 2 5 8 4 3 6 sau đó sắp xếp dảy số này theo thứ tự tăng dần rồi in kết quả sắp xếp được ra màn hình

Answer 1

Uses crt;

Var k: array[1..10] of integer;

i,j,n: byte;

t: integer;

begin clrscr;

Readln(n);

For i:=1 to n do Begin

readln(k[i]);

end;

For i:=1 to n-1 do For j:=i+1 to n do

if k[j] <=k[i] then begin

t:= k[i];

k[i]:=M[j];

k[j]:=t; end;

For i:=1 to n do Write(k[i],''); readln;

end.