Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Asuna
Xem chi tiết

Dưới đây là mã chương trình Pascal để sắp xếp dãy số theo yêu cầu đã cho:

```pascal
program sorting;

const
MAX_N = 1000;

var
N, i, j, temp: integer;
arr: array[1…MAX_N] of integer;
oddArr, evenArr: array[1…MAX_N] of integer;
oddCount, evenCount: integer;
inputFile, outputFile: text;

begin
// Mở file input và đọc dữ liệu
assign(inputFile, 'sorting.inp');
reset(inputFile);
readln(inputFile, N);
for i := 1 to N do
read(inputFile, arr[i]);
close(inputFile);

// Sắp xếp mảng theo yêu cầu
oddCount := 0;
evenCount := 0;
for i := 1 to N do
begin
if arr[i] mod 2 = 1 then
begin
oddCount := oddCount + 1;
oddArr[oddCount] := arr[i];
end
else
begin
evenCount := evenCount + 1;
evenArr[evenCount] := arr[i];
end;
end;

// Sắp xếp mảng số lẻ tăng dần
for i := 1 to oddCount - 1 do
for j := i + 1 to oddCount do
if oddArr[i] > oddArr[j] then
begin
temp := oddArr[i];
oddArr[i] := oddArr[j];
oddArr[j] := temp;
end;

// Sắp xếp mảng số chẵn giảm dần
for i := 1 to evenCount - 1 do
for j := i + 1 to evenCount do
if evenArr[i] < evenArr[j] then
begin
temp := evenArr[i];
evenArr[i] := evenArr[j];
evenArr[j] := temp;
end;

// Mở file output và ghi kết quả
assign(outputFile, 'sorting.out');
rewrite(outputFile);
for i := 1 to oddCount do
write(outputFile, oddArr[i], ' ');
writeln(outputFile);
for i := 1 to evenCount do
write(outputFile, evenArr[i], ' ');
close(outputFile);
end.
```

Bạn có thể sao chép mã chương trình trên vào một tệp tin có tên `sorting.pas`, sau đó tạo một tệp tin `sorting.inp` và nhập dữ liệu theo định dạng đã cho. Chạy chương trình và kết quả sẽ được ghi vào tệp tin `sorting.out`.

Phạm Dương Phúc Khang
21 tháng 1 lúc 22:55

var i,n:longint; a:array[1..1000] of longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

     if a[i] mod 2=0 then 

         begin

              inc(k);

              b[k]:=a[i];

         end

else

begin

inc(t);

c[t]:=a[i];

end;

for i:=1 to k-1 do

for j:=i+1 to k do

if b[i]<b[j] then

begin

d:=b[i];

b[i]:=b[j];

b[j]:=d;

end;

for i:=1 to  t-1 do

for j:=i+1 to t do

if c[i]>c[j] then

begin

d:=c[i];

c[i]:=c[j];

c[j]:=d;

end;

for i:=1 to k do write(b[i],' ');

for i:=1 to t do write(c[i],' ');

end.

APOK FF
Xem chi tiết
Quoc Tran Anh Le
Xem chi tiết
Kiều Sơn Tùng
19 tháng 10 2023 lúc 20:28

Tham khảo:

Sắp xếp dãy số liệu theo thứ tự từ bé đến lớn:

500 ml ; 800 ml ; 900 ml ; 1 000 ml

18oC ; 30oC ; 35oC ; 38oC ; 39oC

Blue A
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2020 lúc 20:48

1:

-Bước 1: Nhập n và nhập dãy số, nhập k

-Bước 2: dem←0; i←1;

-Bước 3: Nếu a[i]=k thì dem←dem+1;

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất dem

-Bước 7: Kết thúc

Thuỳ Dương
Xem chi tiết
Khổng Minh Hiếu
9 tháng 2 2022 lúc 11:19

đây là Tin học mà đúng ko :)?

• Tym •
9 tháng 2 2022 lúc 11:23

Câu 1: B. Sai                 Câu 2: C. làm thí nghiệm

Câu 3: B. Đúng             Câu 4: D. Độ rộng các cột không như nhau

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
11 tháng 11 2017 lúc 9:19

Chọn D.

+ Khi ta đổi chỗ 2 giá trị đứng đầu tiên và cuối cùng cho nhau thì tần số của mỗi giá trị không đổi nên giá trị có tần số lớn nhất không đổi. Do đó; mốt không đổi.

+ Sau khi sắp xếp lại các số liệu (cụ thể là đổ chỗ số đầu tiên và cuối cùng cho nhau) thì ta vẫn được dãy số liệu như ban đầu nên số trung vị không đổi.

+ Tương tự; phương sai không đổi.

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
8 tháng 9 2019 lúc 14:53

Số thứ ba trong dãy là số 15

Nguyễn Dư Thành Đạt
Xem chi tiết
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
18 tháng 2 2019 lúc 15:18

Số thứ ba trong dãy là số 15, số này lớn hơn số thứ nhất trong dãy 10 đơn vị (15 – 5 = 10 )

Vũ Hà Lâm
5 tháng 4 2021 lúc 14:18

số thứ 3 là 15.số này hơn số thứ nhất 10 đơn vị

Khách vãng lai đã xóa