Trang Chủ » 2010 Tháng 1 12 » Tubor Pascal - Sắp xếp các số trong mảng từ nhỏ đến lớn
3:17 PM Tubor Pascal - Sắp xếp các số trong mảng từ nhỏ đến lớn | |
program sapxep; uses crt; {Gọi thư viện CRT} var a:array[1..4] of integer; {Tạo 1 mảng A với 4 phần tử} i,j,tam: integer; Begin clrscr; {Xoá màn hình} for i:=1 to 4 do begin write('Nhap Gia Tri Thu ',i,': '); READLN(A[i]); END; WRITE('Cac Gia Tri Mang A: '); {Liệt kê lại các số bạn vừa nhập trong mảng} for i:=1 to 4 do write(A[i]:4); readln; for j:=1 to 3 do for i:=1 to 3 do if A[i]>A[i+1] then {Nếu muốn sắp xếp từ lớn đến nhỏ thì thay dấu ">" thành "<"} begin tam:=A[i]; A[i]:=A[i+1]; A[i+1]:=tam; end; write(' Cac gia tri mang A sau khi sap xep: '); for i:=1 to 4 do write(A[i]:4); readln; end. | |
|
| |
| Total comments: 5 | |||||||||||||||||
| |||||||||||||||||
