Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] > a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep tang dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
2)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] < a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep giam dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
#include <bits/stdc++.h>
using namespace std;
int A[1000],n,i;
int main()
{
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
sort(A+1,A+n+1);
for (int i=1; i<=n; i++)
cout<<A[i]<<" ";
cout<<endl;
for (int i=2; i<=n; i++)
cout<<A[i]-A[i-1]<<endl;
return 0;
}
viết chương trình python sắp xếp danh sách theo thứ tự tăng dần gồm n phần tử với n nhập từ bàn phím
n = int(input("Nhập số lượng phần tử: "))
lst = []
for i in range(n):
lst.append(int(input("Nhập phần tử thứ {}:".format(i+1))))
lst.sort()
print("Danh sách đã sắp xếp theo thứ tự tăng dần:", lst)
- Sắp xếp theo thứ tự tăng dần của cột Tốt
- Sắp xếp theo thứ tự giảm dần của cột Sĩ số
- Kết quả bảng dữ liệu được sắp xếp theo thứ tự trên một cột chính, nếu có nhiều dòng có giá trị khác nhau trên cột chính thì chúng sẽ được sắp xếp theo thứ tự trên cột phụ (khác với cột chính). Ví dụ, trong hoạt động trên, cột Sĩ số được coi là cột chính, cột Tốt là cột phụ. Do đó, cách sắp xếp số lượng học sinh xếp loại tốt của các lớp có cùng sĩ số theo thứ tự tăng dần của cột tốt.
uses crt;
var s,t:string;
n,i,j,z,k,l:longint;
a:array[1..100] of string;
begin
clrscr;
write('nhap xau:');readln(s);
z:=1; j:=0;
s:=s+' ';
for i:=1 to length(s) do
if (s[i]=' ') and (s[i-1]<>' ') then
begin
j:=j+1;
a[j]:='';
for k:=z to i-1 do
begin
a[j]:=a[j]+s[k];
end;
z:=i+1;
end;
for i:=1 to j-1 do
for k:=i+1 to j do
if length(a[i])>length(a[k]) then
begin
t:=a[i];
a[i]:=a[k];
a[k]:=t;
end;
s:='';
for i:=1 to j do
s:=s+' '+a[i];
writeln('xau da sap xep tu tang dan la:');
write(s);
readln;
end.