Pascal các bác ơi giúp em vớ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
các bác viết kĩ hộ em 1 chút nha

 

[dailuong]

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
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:

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:

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");

 

[Chung]

nhầm C++ với passcal rồi