x.45+x.55=1000. Tìm x
Xin lỗi nếu mình làm phiền, nhưng mình đang mắc kẹt với câu hỏi này và mình thật sự cần một ai đó giúp đỡ. Mọi người có thể dành chút thời gian để hỗ trợ mình được không?

Phương pháp giải:

Ta có phương trình: x * 0.45 + x * 0.55 = 1000

Đặt x = a. Ta có: a * 0.45 + a * 0.55 = 1000

Giải phương trình ta được: a = 1000 / (0.45 + 0.55) = 1000 / 1 = 1000

Vậy x = 1000

Đáp án: x = 1000

Vậy số x cần tìm để phương trình x.45+x.55=1000 đúng là 10.

Tiếp theo, ta cộng các hệ số x của hai thành viên trên cùng một vế để tính tổng: 0.45x + 0.55x = 10 => 1x = 10 => x = 10

Để giải phương trình x.45+x.55=1000, ta có thể chia cả hai vế cho 100 để đơn giản hóa: x.45/100 + x.55/100 = 1000/100 => 0.45x + 0.55x = 10

Để viết chương trình Pascal nhập mảng sắp xếp số chẵn giảm dần và số lẻ tăng dần, bạn có thể làm như sau:

1. Khai báo mảng và biến cần thiết.
2. Nhập số phần tử của mảng và các phần tử của mảng.
3. Phân loại các số chẵn và số lẻ vào 2 mảng riêng.
4. Sắp xếp mảng số chẵn theo thứ tự giảm dần và mảng số lẻ theo thứ tự tăng dần.
5. Ghép hai mảng đã sắp xếp lại với nhau để có mảng kết quả.
6. In ra mảng kết quả.

Câu trả lời cho câu hỏi trên:
```pascal
program sortArray;
var
arr, evenArr, oddArr, resultArr: array of integer;
n, i, j, k: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
setlength(arr, n);

//Nhap cac phan tu cua mang
for i := 0 to n - 1 do
begin
write('Nhap phan tu thu ', i + 1, ': ');
readln(arr[i]);
end;

//Phan loai so chan va so le
j := 0; k := 0;
for i := 0 to n - 1 do
begin
if arr[i] mod 2 = 0 then
begin
setlength(evenArr, j + 1);
evenArr[j] := arr[i];
j := j + 1;
end
else
begin
setlength(oddArr, k + 1);
oddArr[k] := arr[i];
k := k + 1;
end;
end;

//Sap xep mang so chan giam dan
for i := 0 to length(evenArr) - 2 do
for j := i + 1 to length(evenArr) - 1 do
if evenArr[i] < evenArr[j] then
begin
k := evenArr[i];
evenArr[i] := evenArr[j];
evenArr[j] := k;
end;

//Sap xep mang so le tang dan
for i := 0 to length(oddArr) - 2 do
for j := i + 1 to length(oddArr) - 1 do
if oddArr[i] > oddArr[j] then
begin
k := oddArr[i];
oddArr[i] := oddArr[j];
oddArr[j] := k;
end;

//Ghep mang so chan va so le lai voi nhau
setlength(resultArr, n);
for i := 0 to length(evenArr) - 1 do
resultArr[i] := evenArr[i];
for i := 0 to length(oddArr) - 1 do
begin
resultArr[length(evenArr) + i] := oddArr[i];
end;

//In mang ket qua
writeln('Mang da sap xep la: ');
for i := 0 to n - 1 do
write(resultArr[i], ' ');
readln;
end.
```

Nếu có cách viết khác, bạn có thể tham khảo và cải tiến thêm để hoàn thiện chương trình.