1. Nhập vào dãy số tính trung bình cộng các phần tử vừa nhập 2. Nhập vào dãy số in ra màn hình dãy đc sắp sếp theo thứ tự tăng dần 3. Nhập vào dãy số in ra màn hình dãy số được sắp sếp theo thứ tự giảm dần Giúp mình vs ạ
1. Nhập vào dãy số tính trung bình cộng các phần tử vừa nhập 2. Nhập vào dãy số in ra màn hình dãy đc sắp sếp theo thứ tự tăng dần 3. Nhập vào dãy số in ra màn hình dãy số được sắp sếp theo thứ tự giảm dần Giúp mình vs ạ
Câu 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer; tbc: real;
begin
write('Nhap so phan tu trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
tbc:=0;
for i:=1 to n do tbc:=tbc+a[i];
tbc:=tbc/n;
write('Trung binh cong la: ',tbc:6:2);
readln
end.
Câu 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n,h,tg: integer;
begin
write('Nhap so phan tu trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do
for j:=i to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write('Mang sau khi sap xep la: ');
for i:=1 to n do write(a[i].' ');
readln
end.
Câu 3:
Program HOC24;
var a: array[1..1000] of integer;
i,n,h,tg: integer;
begin
write('Nhap so phan tu trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do
for j:=i to n do
if a[i]<a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write('Mang sau khi sap xep la: ');
for i:=1 to n do write(a[i].' ');
readln
end.
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.
Dãy các axit nào sau đây được xếp theo thứ tự tính axit giảm dần?
A. HCl, HBr, HI, HF
B. HI, HBr, HCl, HF
C. HBr, HI, HF, HCl
D. HF, HCl, HBr, HI
Chọn đáp án B
Tính axit giảm dần theo thứ tự: HI > HBr > HCl > HF.
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 sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số nguyên. Độ dài của 1 dãy cũng được nhập từ bàn phím. Sắp xếp và biểu thị dãy theo thứ tự giảm dần
tham khảo:
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
tham khảo
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,tam,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
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.
Cho số nguyên dương N. Ta tạo ra dãy số bằng cách viết các số lẻ nhỏ hơn hoặc bằng N theo thứ tự tăng dần từ trái sang phải, sau đó viết các số chẵn còn lại cũng theo thứ tự tăng dần từ trái sang phải. Ta thu được một dãy số gồm các số lẻ ở đầu dãy và các số chẵn ở cuối dãy.Tìm số hạng thứ k của dãy số. (lập trình pascal);
Cho số nguyên dương N. Ta tạo ra dãy số bằng cách viết các số lẻ nhỏ hơn hoặc bằng N theo thứ tự tăng dần từ trái sang phải, sau đó viết các số chẵn còn lại cũng theo thứ tự tăng dần từ trái sang phải. Ta thu được một dãy số gồm các số lẻ ở đầu dãy và các số chẵn ở cuối dãy.
Ví dụ: Nếu N = 5 thì ta được dãy số là 1, 3, 5, 2, 4.
Nếu N = 8 thì ta được dãy số là 1, 3, 5, 7, 2, 4, 6, 8.
(lap trinh pascal)
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=1 then write(i:4);
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
9,1 ; 9,172 ; 9,18 ; 9,2 ; 9,25
9,1 ; 9,172 ; 9,18 ; 9,2 ; 9,25
Sắp xếp :
9,1; 9,172; 9,18; 9,2; 9,25.
_HT_