SẮP XẾP DÃY A THÀNH DÃY KHÔNG GIẢM.INPUT A = 1 -4 5 6 -7OUTPU...
6.
Sắp xếp dãy a thành dãy không giảm
.
Input A = 1 -4 5 6 -7Output A = -7 -4 1 5 6 Xác định bài toán:- Input: mảng a- Output: mảng a là dãy không tăng Thuật toán:- B1Nhập n, a1
,a2
, …, an
- B2: m n- B3: Nếu M < 2 thì đưa ra dãy a đã được sắp xếp rồi kết thúc- B4: m m – 1, i 0- B5: i i + 1-
B6: Nếu i > M thì quay lại bước 3;-
B7: nếu ai
> ai + 1
, thì tráo đổi ai
và ai+1
cho nhau- B8: quay lại bước 5. Chương trình: program sxkhonggiam;uses crt;var n,i,m,j:byte; a:array[1..15] of integer; t:integer;beginclrscr; write('nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('nhap phan tu a[',i,'] = '); readln(a[i]); end; for j:=n downto 2 do for i:= 1 to j-1 doif a[i] > a[i+1] then begin t:=a[i];a[i]:=a[i+1];a[i+1]:=t; end; writeln(' Day so sau khi sap xep: ’);for i:=1 to n do write(a[i]:4);readln