Nhập vào 1 mảng số nguyên,sắp xếp mảng theo trình tự tăng dần,giảm dần.
Giúp em với,mai kiểm tra rồi
Nhập vào 1 mảng số nguyên,sắp xếp mảng theo trình tự tăng dần,giảm dần. Giúp em với,mai kiểm tra rồi
By Maya
By Maya
Nhập vào 1 mảng số nguyên,sắp xếp mảng theo trình tự tăng dần,giảm dần.
Giúp em với,mai kiểm tra rồi
Uses Crt;
Var a:array[1..1000] of integer;
i,n,j,tg:integer;
Begin
Clrscr;
Write(‘Nhap so ptu N= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap so thu 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
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln;
Writeln(‘ Day so sau khi sap xep theo thu tu tang dan la: ‘);
For i:= 1 to n do Write(a[i]:5);
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln;
Writeln(‘ Day so sau khi sap xep theo thu tu giam dan la: ‘);
For i:= 1 to n do Write(a[i]:5);
Readln
End.
–Tăng dần
Program Sap_xep_tang_dan;
Uses crt;
Var
i, N, j, c: integer;
A: array[1..50] of integer;
Begin
Clrscr;
Writeln(‘Nhap do dai cua day:’); Readln(N);
For i:=1 to N do
Begin
Writeln(‘Nhap cac phan tu trong day 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
c:=A[i];
A[i]:=A[j];
A[j]:=c;
End;
Writeln(‘Mang sau khi sap xep:’);
For i:=1 to N do
Writeln(A[i]:5);
Readln;
End.
–Giảm dần
Program Sap_xep_giam_dan;
Uses crt;
Var
i, N, j, c: integer;
A: array[1..50] of integer;
Begin
Clrscr;
Writeln(‘Nhap do dai cua day:’); Readln(N);
For i:=1 to N do
Begin
Writeln(‘Nhap cac phan tu trong day 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
c:=A[i];
A[i]:=A[j];
A[j]:=c;
End;
Writeln(‘Mang sau khi sap xep:’);
For i:=1 to N do
Writeln(A[i]:5);
Readln;
End.