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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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
Đọc tiếp
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.
Đúng 0
Bình luận (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!!!!!!!!!!!!!........
13 tháng 5 2022 lúc 21:40
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.
Đúng 3
Bình luận (1)
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.
Đúng 3
Bình luận (0)
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.
Đúng 0
Bình luận (0)
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)
Đọc tiếp
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.
Đúng 0
Bình luận (0)
27 tháng 2 2022 lúc 18:46
Xếp dãy số sau theo thứ tự giảm dần : 9,18 ; 9,1 ; 9,172 ; 9,2 ; 9,25.
Xem chi tiết
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_
Sắp xếp các số sau theo thứ tự tăng dần.
8903
Câu hỏi 2 (0.5 điểm)
Số lớn nhất trong các số sau là số nào?
9264
Câu hỏi 3 (1 điểm)
Kéo phép tính vào ô trống thích hợp:
7
(Kéo thả hoặc click vào để điền)
Câu hỏi 4 (0.5 điểm)
Hình vẽ dưới đây có mấy hình vuông?
1342
Câu hỏi 5 (1 điểm)
Điền vào ô trống:
Viết 8 5 2
Đọc
sáu bốn
Câu hỏi 6 (1 điểm)
Tính:
- 3 - 9 - 9
1 7 3
Câu hỏi 7 (1 điểm)
Điền số vào chỗ tr...
Đọc tiếp
Sắp xếp các số sau theo thứ tự tăng dần.
8903
Câu hỏi 2 (0.5 điểm)
Số lớn nhất trong các số sau là số nào?
9264
Câu hỏi 3 (1 điểm)
Kéo phép tính vào ô trống thích hợp:
> 7 >
(Kéo thả hoặc click vào để điền)
Câu hỏi 4 (0.5 điểm)
Hình vẽ dưới đây có mấy hình vuông?
1342
Câu hỏi 5 (1 điểm)
Điền vào ô trống:
Viết 8 5 2
Đọc
sáu bốn
Câu hỏi 6 (1 điểm)
Tính:
- 3 - 9 - 9
1 7 3
Câu hỏi 7 (1 điểm)
Điền số vào chỗ trống:
+ 8 + +
6 1
10 7 10
(Kéo thả hoặc click vào để điền)
Câu hỏi 8 (1 điểm)
Tính:
- 8 - 8 - 1
6
5 0
(Kéo thả hoặc click vào để điền)
Câu hỏi 9 (1 điểm)
Kéo thả các số thích hợp vào chỗ trống:
1 + = 10
+ 3 = 10
1 + 1 =
(Kéo thả hoặc click vào để điền)
Câu hỏi 10 (1 điểm)
7
- 1
Sắp xếp các số sau theo thứ tự tăng dần.
8903
Câu hỏi 2 (0.5 điểm)
Số lớn nhất trong các số sau là số nào?
9264
Câu hỏi 3 (1 điểm)
Kéo phép tính vào ô trống thích hợp:
7
(Kéo thả hoặc click vào để điền)
Câu hỏi 4 (0.5 điểm)
Hình vẽ dưới đây có mấy hình vuông?
1342
Câu hỏi 5 (1 điểm)
Điền vào ô trống:
Viết 8 5 2
Đọc
sáu bốn
Câu hỏi 6 (1 điểm)
Tính:
- 3 - 9 - 9
1 7 3
Câu hỏi 7 (1 điểm)
Điền số vào chỗ tr...
Đọc tiếp
Sắp xếp các số sau theo thứ tự tăng dần.
8903
Câu hỏi 2 (0.5 điểm)
Số lớn nhất trong các số sau là số nào?
9264
Câu hỏi 3 (1 điểm)
Kéo phép tính vào ô trống thích hợp:
> 7 >
(Kéo thả hoặc click vào để điền)
Câu hỏi 4 (0.5 điểm)
Hình vẽ dưới đây có mấy hình vuông?
1342
Câu hỏi 5 (1 điểm)
Điền vào ô trống:
Viết 8 5 2
Đọc
sáu bốn
Câu hỏi 6 (1 điểm)
Tính:
- 3 - 9 - 9
1 7 3
Câu hỏi 7 (1 điểm)
Điền số vào chỗ trống:
+ 8 + +
6 1
10 7 10
(Kéo thả hoặc click vào để điền)
Câu hỏi 8 (1 điểm)
Tính:
- 8 - 8 - 1
6
5 0
(Kéo thả hoặc click vào để điền)
Câu hỏi 9 (1 điểm)
Kéo thả các số thích hợp vào chỗ trống:
1 + = 10
+ 3 = 10
1 + 1 =
(Kéo thả hoặc click vào để điền)
Câu hỏi 10 (1 điểm)
7
- 1
Xem thêm câu trả lời