viết chương trình nhập vào dãy số nguyên gồm n là phần tử (0<n<100) từ bàn phím. Đưa dãy vừa nhập ra màn hình. sắp xếp các số chẵn lớn hơn 3 lên đầu dãy, tiếp theo là các số lẻ nhỏ hơn, các số còn lại dc xếp theo chiều tăng dần. pascal
1 câu trả lời
uses crt;
var a:array[1..100] of integer;
i,j,n,t:integer;
begin
clrscr;
readln(n);
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do if a[i]<7 then a[i]:=0;
for i:= 10 to 39 do a[i]:=0;
for i:= 1 to n do
for j:= i to n do
if a[j] mod 2 <> 0 then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:= 1 to n do write(a[i],' ');
for i:= 1 to n do
for j:=1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:= 1 to n do write(a[i],' ');
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
