viết chương trình pascal nhập mảng và thay thế các phần tử âm bằng số 0
Mọi người thân mến, mình đang cảm thấy bế tắc quá. Bạn nào tốt bụng có thể nhân lúc rảnh rỗi giúp mình với câu hỏi này được không?

Để thực hiện yêu cầu trên, ta cần viết chương trình Pascal như sau:

```pascal
program thaythephantu;
var
a: array[1..100] of integer;
n, i: integer;

begin
write('Nhap so phan tu cua mang: ');
readln(n);

for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);

if a[i] < 0 then
begin
a[i] := 0;
end;
end;

writeln('Mang sau khi thay the:');
for i := 1 to n do
begin
write(a[i], ' ');
end;
end.
```

Câu trả lời cho câu hỏi "viết chương trình Pascal nhập mảng và thay thế các phần tử âm bằng số 0" là viết chương trình Pascal như trên. Chương trình sẽ nhập một mảng số nguyên từ bàn phím và thay thế các phần tử âm bằng số 0, sau đó hiển thị mảng sau khi thay thế ra màn hình.

Cuối cùng, không quên giải phóng bộ nhớ cho mảng sau khi hoàn thành chương trình.

Sau khi thay thế xong, hiển thị mảng sau khi thay đổi ra màn hình.

Để thay thế phần tử âm bằng số 0, chúng ta sử dụng câu lệnh điều kiện if else.

Trong vòng lặp, kiểm tra nếu phần tử đó là số âm thì thay thế bằng số 0.