Viết chương trình nhập 2 số a,b. Sắp xếp 2 số đó theo thứ tự giảm dần
1.Viết chương trình nhập vào một dãy số gồm n phần tử.Sắp xếp dãy số theo thứ tự tăng dần sau đó in ra màn hình dãy số đã sắp xếp. 2.Viết chương trình nhập vào một dãy số gồm n phần tử. Sắp xếp dãy số theo thứ tự giảm dần sau đó in ra màn hình dãy số đã sắp xếp.(cứu mk với mai thi r ạ🥲
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.
Bài tập 2: Viết chương trình nhập N số nguyên vào từ bàn phím, sắp xếp mảng theo thứ tự giảm dần
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=n; i>=1; i--) cout<<a[i]<<" ";
return 0;
}
program SapXepMang;
var
N, i, j, temp: integer;
arr: array of integer;
begin
write('Nhap N: ');
readln(N);
SetLength(arr, N);
for i := 0 to N - 1 do
begin
write('Nhap phan tu thu ', i + 1, ': ');
readln(arr[i]);
end;
for i := 0 to N - 2 do
for j := i + 1 to N - 1 do
if arr[i] < arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
writeln('Mang da sap xep theo thu tu giam dan: ');
for i := 0 to N - 1 do
write(arr[i], ' ');
readln;
end.
Viết chương trình pascal nhập vào một mảng số nguyên B số lượng phần tử là m nhập từ bàn phím
+ sắp xếp mảng theo thứ tự giảm dần rồi in mảng đã sắp xếp ra màn hình
Var a:array[1..1000] of integer;
i,m,tam:integer;
Begin
Write('m = ');readln(m);
For i:=1 to m do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to m do
If a[i] < a[i+1] then
Begin
tam:=a[i];
a[i]:=a[i+1];
a[i+1]:=tam;
End;
Write('Mang sau khi sap xep: ');
For i:=1 to m do
Write(a[i]:8);
Readln;
End.
hãy viết 1 chương trình nhập dãy số gồm n số nguyên (n<=100).Viết chương trình sắp xếp các phần tử chẳn lên đầu dãy theo thứ tự tăng dần.các phần tử lẻ ở cuối dãy theo thứ tự giảm dần
#include <bits/stdc++.h>
using namespace std;
long long a[100],b[100],c[100],n,i,dem1,dem2;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
dem1=0;
dem2=0;
for (i=1; i<=n; i++)
{
if (a[i]%2==0)
{
dem1++;
b[dem1]=a[i];
}
else
{
dem2=0;
c[dem2]=a[i];
}
}
sort(b+1,b+dem1+1);
sort(c+1,c+dem2+1);
for (i=1; i<=dem1; i++)
cout<<b[i]<<" ";
for (i=dem2; i>=1; i--)
cout<<c[i]<<" ";
return 0;
}
1/Cho một dãy số N phần tử . Viết chương trình sắp xếp các phần tử đã cho theo thứ tự tăng dần (giảm dần)
2/ Viết chương trình chèn thêm 1 số nguyên vào 1 dãy số nguyên đã được sắp xếp theo thứ tự tăng dần sao cho dãy số không thay đổi trật tự sắp xếp
GIÚP MIK VỚI SẮP KT 1 TIẾT RÙI!!!!!!!!!!!!!........
Viết chương trình nhập vào dảy số 7 9 2 5 8 4 3 6 sau đó sắp xếp dảy số này theo thứ tự tăng dần rồi in kết quả sắp xếp được ra màn hình
Uses crt;
Var k: array[1..10] of integer;
i,j,n: byte;
t: integer;
begin clrscr;
Readln(n);
For i:=1 to n do Begin
readln(k[i]);
end;
For i:=1 to n-1 do For j:=i+1 to n do
if k[j] <=k[i] then begin
t:= k[i];
k[i]:=M[j];
k[j]:=t; end;
For i:=1 to n do Write(k[i],''); readln;
end.
Viết chương trình nhập vào 3 số a,b,c sắp xếp a,b,c theo thứ tự giảm dần.
Giúp mk gấp vs Viết chương trình nhập vào số nguyên n 1. đếm và tổng bình phương các số ở vị trí lẻ 2. in ra các số không âm 3. sắp xếp n số trên theo thứ tự giảm dần
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++)
if (i%2!=0) t+=a[i]*a[i];
cout<<t<<endl;
for (i=1;i<=n; i++)
if (a[i]<0) cout<<a[i]<<" ";
cout<<endl;
sort(a+1,a+n+1);
for (i=n; i>=1; i--)
cout<<a[i]<<" ";
return 0;
}
1/Viết chương trình nhập vào một mảng số nguyên sắp xếp lại mảng đó theo thứ tự giảm dần
2/ Viết chương trình cho phép nhập vào 1 mảng gồm N phần tử, cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy
giúp em với ak
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,tam,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('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
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.