Hãy mô phỏng thuật toán sắp xếp theo dãy tăng dần. Với N=6 và dãy a1=11,a2=6,a3=8,a4=3,a5=7,a6=2
Giúp em vs ạ :<< em cần gấp
Hãy mô phỏng thuật toán sắp xếp theo dãy tăng dần. Với N=6 và dãy a1=11,a2=6,a3=8,a4=3,a5=7,a6=2
Giúp em vs ạ :<< em cần gấp
b1. nhập N và mảng A
b2. gán i=1
b3. gán j=i;
b4. nếu j=n thì đến b6. ngược lại tăng j
b5 nếu a[i]<a[j] thì hoán đổi vị trí 2 số. quay lại b4
b6. Nếu i=n thì đến bước 7. ngược lại tăng i
b7. gán i=1;
b8. in a[i]. nếu i=n thì kết thúc. tăng i.
Program Sap_Xep_Mang;
Uses crt;
Var M:array[1..1000] of Longint;
I,j,n:Byte;
Tam:Longint;
Begin
Clrscr;
Write(‘Nhap so phan tu cua mang: ‘);readln(n);
For i:=1 to n do
Begin
Write(‘M[‘,i,’]’);Readln(M[i]);
End;
For i:= 1 to n-1 do
For j:=i+1 to n do if M[j] <= M[i] then
Begin
Tam:=M[i];
M[i]:=M[j];
M[j]:=tam;
End;
Write(‘Sau khi sap xep: ‘);
For i:=1 to n do Write(M[i],’;’);
Readln
End.
*Chương trình này có thể nhập ít hay nhiều hơn 6 tùy vào người làm :33333