Pascal các bác ơi giúp em với

**Maihoaca** · 11-09-2009, 09:49 PM

Cao thủ nào siêu pascal giúp em bài này với
Bài1 nhập vào mảng gồm n phần tử ( n nhập từ bàn pjm) đưa tất cả các số 0 ra đầu mảng , số dương về cuối mảng
Bài2 nhập vào 1 mảng gồm 20 phần tử đém xem trong mảng có bao nhiêu số chẵn đưa ra màn hình
em cám ơn trước nha:p:p:p:p:D:D:D
các bác viết kĩ hộ em 1 chút nha

View more random threads:

.

**dailuong** · 11-12-2009, 09:54 AM

Nguyên văn bởi maihoaca

Cao thủ nào siêu pascal giúp em bài này với
Bài1 nhập vào mảng gồm n phần tử ( n nhập từ bàn pjm) đưa tất cả các số 0 ra đầu mảng , số dương về cuối mảng
Bài2 nhập vào 1 mảng gồm 20 phần tử đém xem trong mảng có bao nhiêu số chẵn đưa ra màn hình
em cám ơn trước nha:p:p:p:p:D:D:D
các bác viết kĩ hộ em 1 chút nha

Lâu rồi không học pascal nên quên cú pháp hết rồi. mình viết nếu có sai cú pháp thì mọi người sửa lại hộ mình nha:
Bài 1:

Code:

for i=1 to n -1 do
	for j=i+1 to n do 
		if ((a[j]=0 & a[i]<>0) hoac (quen mat dau hoac roy) (a[i]>0 & a[j]<0)) 
		begin
			tam=a[i];
			a[i]=a[j];
			a[j]=tam;
                       (Đoạn này là đổi chỗ a[i] cho a[j] nha bạn)
	       end;
for i=1 to n do
	printf(a[i]," " );

Bai 2:

Code:

dem=0;
for i=1 to n do
     if (a[i] mod 2 == 0) then
          begin
                dem=dem+1;
                print(a[i]," ");
         end;
if (dem=0) then print("Trong day khọgn co so chan nao ca");

.